view release on metacpan or  search on metacpan

t/08_columns_detailed.t  view on Meta::CPAN

        is_auto_increment => 1,
    },
    Rolename => {
        data_type => 'VARCHAR',
        is_nullable => 1,
        size => 255,
    },

);~;

my $content = do{ local (@ARGV, $/) = $role_class; <> };
like $content, qr/\Q$check\E/;


eval{
    rmtree( $output_path );
    $output_path = _untaint_path( $output_path );
    rmdir $output_path;
};

sub rmtree{