gistfile1.pl

package t::SomeTest; 
use strict; 
use warnings;
use parent 'Test::Class';
use Test::More;
use Test::Base;
    
Test::Builder::plan;
    
sub test_class_test : Test(1) {
    pass;
}

sub test_base_test : Test(1) {
    spec_string(our $SPEC);
    
    filters {
        input => 'chomp',
        expected => 'chomp',
    };
   
    run {
        my $block = shift;
        is reverse($block->input), $block->expected;
    };
}

our $SPEC = <<__SPEC__;

=== abc
--- input
abc
--- expected
cba
    
__SPEC__
    
__PACKAGE__->runtests if $0 eq __FILE__;
    
1;