Number-WithError
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Number/WithError.pm view on Meta::CPAN
my $class = ref($proto)||$proto;
# clone
if (ref($proto) and not @_) {
my $num = $proto->{num};
$num = $num->copy() if ref($num);
my $err = [];
foreach (@{$proto->{errors}}) {
push @$err, ref($_) eq 'ARRAY' ? [map {ref($_) ? $_->copy() : $_} @$_] : (ref($_) ? $_->copy() : $_)
}
return bless {num => $num, errors => $err} => $class;
}
return undef if not @_;
my $num = shift;
return undef if not defined $num;
if (not @_) {
return _parse_string($num, $class);
}
my $errors = [];
my $self = {
num => $num,
errors => $errors,
};
bless $self => $class;
while (@_) {
my $err = shift;
if (_ARRAY($err)) {
if (@$err == 1) {
push @$errors, CORE::abs($err->[0] || 0);
}
else {
push @$errors, [CORE::abs($err->[0] || 0), CORE::abs($err->[1] || 0)];
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.764 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )