theory · October 14, 2010 22:41
diff --git a/gistfile1.pl b/gistfile1.pl
 package Router::Resource::Match;

 my $def = __PACKAGE__->new(sub { [405], [], ['Method not allowed' ] });

 sub not_allowed { $def }

 sub new {
    my ($class, $code) = @_;
    bless $code => $class;
 }

 sub execute { shift->(); }
 sub code { shift eq $def ? 405 : 200 };
	package Router::Resource::Match;

	my $def = __PACKAGE__->new(sub { [405], [], ['Method not allowed' ] });

	sub not_allowed { $def }

	sub new {
	my ($class, $code) = @_;
	bless $code => $class;
	}

	sub execute { shift->(); }
	sub code { shift eq $def ? 405 : 200 };