view release on metacpan or  search on metacpan

lib/Test/MockPackages/Returns.pm  view on Meta::CPAN

use warnings;
use utf8;

our $VERSION = '1.00';

use English qw(-no_match_vars);
use Exporter qw(import);

our @EXPORT_OK = qw(returns_code);

sub returns_code(&) {    ## no critic (Subroutines::ProhibitSubroutinePrototypes)
    my ( $coderef ) = @ARG;

    return bless $coderef, __PACKAGE__;
}

1;

__END__

=head1 NAME