Select Code to Download

#!/usr/bin/perl

...
ok( qr/^[0-9]$/ eq $obj2->get_chars(), "can get chars" );

is_deeply( $obj1, $obj2, "obj1 seems deeply similar to obj2" );

$ cover
Reading database from /Users/kentcowgill/cover_db
...
cover.pl                      100.0    n/a   85.7  100.0    n/a  100.0
+   98.3
Total                         100.0    n/a   85.7  100.0    n/a  100.0
+   98.3
---------------------------- ------ ------ ------ ------ ------ ------
+ ------

line %   coverage    condition
12   100             $args{'name'} || 'default'
...
         0   0   0
         0   1   1
         1   X   1

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)