view release on metacpan or  search on metacpan

t/lib/SizemeTest.pm  view on Meta::CPAN

                my $fullname = "Devel::SizeMe::Core::$arg";
                no strict 'refs';
                my $value = &$fullname();
                $arg = $value;
            }
        }
        push @steps, [ $action, @args ];
    }

    # obtain group from file name
    my $group = ((caller)[1] =~ /([^\/\\]+)\.t$/) ? $1
        : croak "Can't determine test group";

    # .smt is "SizeMe Token" file
    my $smt_file_old = "$group.smt";
    my $smt_file_new = "$smt_file_old\-new.smt";
    unlink <$group.*new*>; # delete all _new files for this group
    is -s $smt_file_new, undef, "$smt_file_new should not exist";

    # perform the steps
    local $ENV{SIZEME} = $smt_file_new;