Select Code to Download

~/devel $ diff devel-examine-subs/t/02-has.t Devel-Examine-Subs-1.23/t
+/02-has.t
~/devel $

~/devel $ diff devel-examine-subs/t/sample.data Devel-Examine-Subs-1.2
+3/t/sample.data 
~/devel $

~/devel/devel-examine-subs $ perl t/02-has.t 
1..26
...
ok 2 - new() dies with error if file not found
ok 3 - has() returns an array ref file exists and text available
...

~/devel/Devel-Examine-Subs-1.23 $ perl t/02-has.t
1..26
...
#   Failed test 'has() returns an array ref file exists and text avail
+able'
#   at t/02-has.t line 23.
...

#!perl 
use warnings;
...
    ok ( $res->[0] =~ '\w+', "has() returns an array ref file exists a
+nd text av
ailable" );
}