view release on metacpan or  search on metacpan

examples/benchmarks-multisub.pl  view on Meta::CPAN

	}
	
	multi method fib ( Int $i ) {
		return $self->fib($i-1) + $self->fib($i-2);
	}
}

{
	package Using_MXMM;
	use Moose;
	use MooseX::MultiMethods;
	
	multi method fib ( Int $i where { $_ <= 1 } ) {
		return $i;
	}
	
	multi method fib ( Int $i ) {
		return $self->fib($i-1) + $self->fib($i-2);
	}
}

examples/benchmarks-multisub.pl  view on Meta::CPAN

Modules tested are:

=over

=item *

L<Kavorka> (of course)

=item *

L<MooseX::MultiMethods>

=item

Plain old Perl 5 subs, for comparison.

=back

=head1 RESULTS

Running C<< perl -Ilib examples/benchmarks-multisub.pl >>: