| Current Path : /usr/share/doc/perl-Data-Dump-1.22/t/ |
| Current File : //usr/share/doc/perl-Data-Dump-1.22/t/dollar-one.t |
use strict;
use warnings;
use Test::More tests => 6;
use Data::Dump qw/dump/;
if ("abc" =~ /(.+)/) {
is(dump($1), '"abc"');
is(dump(\$1), '\"abc"');
is(dump([$1]), '["abc"]');
}
if ("123" =~ /(.+)/) {
is(dump($1), "123");
is(dump(\$1), '\123');
is(dump([$1]), '[123]');
}