projects
/
gitmo/Class-MOP.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Class::MOP::Method and co. are now stricter and require the package_name and name...
[gitmo/Class-MOP.git]
/
lib
/
Class
/
MOP
/
Method
/
Generated.pm
diff --git
a/lib/Class/MOP/Method/Generated.pm
b/lib/Class/MOP/Method/Generated.pm
index
99e1ccc
..
4042e32
100644
(file)
--- a/
lib/Class/MOP/Method/Generated.pm
+++ b/
lib/Class/MOP/Method/Generated.pm
@@
-15,6
+15,9
@@
sub new {
my $class = shift;
my %options = @_;
+ ($options{package_name} && $options{name})
+ || confess "You must supply the package_name and name parameters";
+
my $self = bless {
# from our superclass
'&!body' => undef,