String-Formatter
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/String/Formatter.pm view on Meta::CPAN
}
sub new {
my ($class, $arg) = @_;
my $_codes = {
%{ $class->default_codes },
%{ $arg->{codes} || {} },
};
my $self = bless { codes => $_codes } => $class;
for (keys %METHODS) {
$self->{ $_ } = $arg->{ $_ } || do {
my $default_method = "default_$_";
$class->$default_method;
};
$self->{$_} = $self->can($self->{$_}) unless ref $self->{$_};
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.487 second using v1.00-cache-2.02-grep-82fe00e-cpan-9e6bc14194b )