1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package HTML::FormFu::Exception;
use strict;
use Scalar::Util qw( reftype );
use Carp qw( croak );
use HTML::FormFu::Attribute qw( mk_item_accessors mk_accessors );
use HTML::FormFu::ObjectUtil qw( form parent get_parent populate );
sub new {
my $class = shift;
my %attrs;
if (@_) {
croak "attributes argument must be a hashref"
if reftype( $_[0] ) ne 'HASH';
%attrs = %{ $_[0] };
}
my $self = bless {}, $class;
$self->populate( \%attrs );
return $self;
}
1;
|
