The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -T 

use Test::More tests => 9;

BEGIN { use_ok('Memoize::Attrs') };

my $COUNT = 0;

sub no_args :MEMOIZE( INSTALL => 'memo_no_args' ) {
    my $arg = shift;
    $COUNT++;
    11;
}

is( no_args(), 11 );
is( $COUNT, 1 );

is( no_args(), 11 );
is( $COUNT, 2 );

$COUNT = 0;

is( memo_no_args(), 11 );
is( $COUNT, 1 );

is( memo_no_args(), 11 );
is( $COUNT, 1 );