diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-19 15:08:51 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-19 15:08:51 +0200 |
| commit | f9de2becaaca0b01dfb98334be00f27b8cbf05f4 (patch) | |
| tree | 384312da06c404c842d0d696498d141c3263c32f /lib | |
| parent | use new role to generate method (diff) | |
| download | moosex-privacy-f9de2becaaca0b01dfb98334be00f27b8cbf05f4.tar.gz | |
some tidy
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MooseX/Privacy/Meta/Class/Role.pm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/MooseX/Privacy/Meta/Class/Role.pm b/lib/MooseX/Privacy/Meta/Class/Role.pm index 3640e21..76d3ca4 100644 --- a/lib/MooseX/Privacy/Meta/Class/Role.pm +++ b/lib/MooseX/Privacy/Meta/Class/Role.pm @@ -14,14 +14,16 @@ role { my $p = shift; my $name = $p->name; - my $local_methods = "local_" . $name . "_methods"; - my $local_attributes = "local_" . $name . "_attributes"; - my $push_method = "_push_" . $name . "_method"; - my $push_attribute = "_push_" . $name . "_attribute"; - my $count_methods = "_count_" . $name . "_methods"; - my $count_attributes = "_count_" . $name . "_attributes"; - - my $meta_method = "add_" . $name . "_method"; + my $local_methods = "local_" . $name . "_methods"; + my $local_attributes = "local_" . $name . "_attributes"; + my $push_method = "_push_" . $name . "_method"; + my $push_attribute = "_push_" . $name . "_attribute"; + my $count_methods = "_count_" . $name . "_methods"; + my $count_attributes = "_count_" . $name . "_attributes"; + my $get_method = 'get_' . $name . '_method'; + my $get_all_mehods = 'get_all_' . $name . '_methods'; + my $get_all_methods_name = 'get_all_' . $name . '_method_names'; + my $meta_method = "add_" . $name . "_method"; has $local_methods => ( traits => ['Array'], |