Current File : //proc/self/root/kunden/proc/thread-self/root/usr/share/doc/perl-Sub-Identify/t/06codelocxs.t

#!/usr/bin/perl

use strict;
use Test::More tests => 4;
use Sub::Identify ':all';
use List::Util;

my ($file, $line);

($file, $line) = get_code_location \&List::Util::minstr;
ok !defined $file;
ok !defined $line;

SKIP: {
    skip('get_code_location() is a perl sub', 2) if ($0 =~ m/pureperl/);
    ($file, $line) = get_code_location \&Sub::Identify::get_code_location;
    ok !defined $file;
    ok !defined $line;
}