From f9de2becaaca0b01dfb98334be00f27b8cbf05f4 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sat, 19 Jun 2010 15:08:51 +0200 Subject: some tidy --- lib/MooseX/Privacy/Meta/Class/Role.pm | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'lib/MooseX/Privacy/Meta/Class/Role.pm') 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'], -- cgit v1.2.3