1#@!#!123s

��JFIF�� 1#@!#!123s

: / usr / share / doc / perl-Sub-Identify / t /

Filename : 06codelocxs.t

back

#!/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;
}