view release on metacpan or  search on metacpan

t/85-myfile.t  view on Meta::CPAN

my ($out, $err) = run_ok($exe);

our $data;
eval($out);

my $exp_file = catfile($data->{par_temp}, qw( inc lib Myfile.pm ));
$exp_file =~ s{\\}{/}g if $^O eq 'MSWin32';

is($data->{from_file}, $exp_file, "expected source path from __FILE__");
ok(-e $data->{from_file}, "file __FILE__ exists");
is($data->{from_caller}, $exp_file, "expected source path from (caller)[1]");
ok(-e $data->{from_caller}, "file (caller)[1] exists");

t/data/lib/Myfile.pm  view on Meta::CPAN

package Myfile;

use strict;
use warnings;
use Cwd;

sub from_caller  { Cwd::realpath(_from_caller()) }
sub _from_caller { (caller)[1] }
sub from_file    { Cwd::realpath(__FILE__) }

1;