Acme-Shukugawa-Atom
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
no strict 'refs';
*{"${package}::$field"} = $sub;
return $code if defined wantarray;
}
sub default_as_code {
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $code = Data::Dumper::Dumper(shift);
$code =~ s/^\$VAR1 = //;
$code =~ s/;$//;
return $code;
}
sub const {
my $package = caller;
my ($args, @values) = do {
no warnings;
local *paired_arguments = sub { (qw(-package)) };
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.054 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )