Exception-Base
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Exception/Base.pm view on Meta::CPAN
no warnings 'uninitialized';
foreach my $key (keys %args) {
if ($attributes->{$key}->{is} eq 'rw') {
$e->{$key} = $args{$key};
};
};
# Defaults for this object
$e->{defaults} = { %$defaults };
bless $e => $class;
# Collect system data and eval error
$e->_collect_system_data;
return $e;
};
=head1 METHODS
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.709 second using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )