Dashboard
PHP:
8.3.33
OS:
Linux
User:
letter7
/
/
usr
/
share
/
doc
/
perl-Sub-Identify
/
t
📤 Upload
📝 New File
📁 New Folder
Close
Editing: 04codelocation.t
#!/usr/bin/perl use Test::More tests => 6; use Sub::Identify ':all'; sub newton { print; print; print; print; print; print; print; } *hooke = *newton; for ( \&newton, \&hooke ) { my ($file, $line) = get_code_location($_); is( $file, __FILE__, 'file' ); is( $line, 7, 'line' ); } { sub pauli; my ($file, $line) = get_code_location(\&pauli); ok( !defined $file, 'no definition, no file' ); ok( !defined $line, 'no definition, no line' ); }
Save
Cancel