Select Code to Download

 
use Test::More;  # you may need to install it 

...
ok( !@test_these , 'no more @test_these!' ); 

1;

 

sub get_file_contents { 
...
  
}

 
use Test::More tests => 3; 
use My::Module; 
...
ok( $content =~ /string/ , "\$content contains string!" ); 

1;

 

sub get_file_contents { 
...
    return wantarray ? ($contents,$file) : $contents; 
  
}

 

use Test::More tests => 13; 
...

1;