package MyTestFramework;
    
use base 'Test::SimpleFramework'; 

sub init {
    my ( $self ) = @_;
    $self->set_strict(1);
    $self->set_warnings(1);
    $self->export({
        'Scalar::Util'  => 'refaddr',
        'English'       => '-no_match_vars',
        'Data::Dumper'  => undef,
        'MyModule'  => undef,
    });
    $self->dependencies({
        'lftp binary in path' => $self->in_path('lftp'),
        'non-CPAN module'     => $self->in_inc('Non::Cpan'),
    });
}

our @EXPORT = qw( delete_temporary_files );

sub delete_temporary_files {
    foreach my $file ( <t/tmp/*> ) {
        my ( $filename ) = $file =~ m{\A t/tmp/ ([\d\w\.\-]+) \z}xms;
        unlink "t/tmp/$filename";
    }
}