dynamic method generation in a role

Foobar.pm

package Foobar;
use Moose;

with 'Foobar::Gigarole', {
	number => 5
};

1;

foobar.pm

use 5.20.2;
use Foobar;

my $foo = Foobar->new;
$foo->blorg_3;
$foo->blorg_5;
$foo->blorg_1;

# blorg_3 was called
# blorg_5 was called
# blorg_1 was called

Foobar::Gigarole.pm

package Foobar::Gigarole;
use MooseX::Role::Parameterized;

parameter number => (
	is => 'ro',
	isa => 'Str',
	required => 1,
); 

role {
	my $p = shift;
	my $num = $p->number;
	foreach my $i (1 .. $num) {
		method "blorg_$i" => sub {
			print "blorg_$i called\n";
		}
	}
};

1;