use Test::More;
use Test::SaveLoad;
use My::Module; # system under test

# load previous results & compare
my $sl = Test::SaveLoad->new( load => $filename );

# save results for future (in Dumper?..)
my $sl = Test::SaveLoad->new( save => $filename );

# do actual testing
plan tests => 1 if $sl->is_testing;

$sl->test( "Basic usecase" => sub {
    My::Module->load_data( id => 42 );
});
# returns eq_or_diff-like line-by-line comparison