view release on metacpan or  search on metacpan

t/09_prototypes.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Mock::Guard qw(mock_guard);

package Some::Class;

sub apply(&@) {
  my $code = shift;
  $code->() foreach @_;
}

package main;

# sanity: Some::Class::apply() works correctly
{
  my @data = ('a', 'b');