Help for this page
use Benchmark qw/cmpthese/; use List::Util qw/reduce/; ... join '&', kvmap { "$a=$b" } @data; } };
sub TIESCALAR { bless \my $o => $_[0] } sub STORE { $_[1] = "Touched by STORE\n" } ... print $b; # => Untouched by STORE tied($a)->STORE($b); print $b; # => Touched by STORE
sub walk { my ( $ref ) = @_; ... default { carp "I'm confused by $ref" } } }
{ my ( $test, $modify ); ... } } }
my ( $gold ) = $data =~ /$rx/
qr/(foo).*(foo)(?{ $_ =~ s+foo+bar+g })/
use re 'eval'; my $rx = qr/$rx_with_foo(?{ $_ =~ s+foo+bar+g })/
{ package A; ... print $a->legal_keys, "\n"; print $a, "\n"; print Hash::Util::legal_keys($a), "\n";
www.com | www.net | www.org
No recent polls found