diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:38:23 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:38:23 +0200 |
| commit | 14d0bf15ab9cbc06fdc12ce11e473a35ab9372f3 (patch) | |
| tree | af85fae6a2ea168a35a3783f7b53e5aaac7cbff5 /t | |
| parent | uppercase, no need for ucfirst (diff) | |
| download | moosex-privacy-14d0bf15ab9cbc06fdc12ce11e473a35ab9372f3.tar.gz | |
add count to attributes and methods
Diffstat (limited to '')
| -rw-r--r-- | t/10_private_method.t | 3 | ||||
| -rw-r--r-- | t/11_protected_method.t | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/t/10_private_method.t b/t/10_private_method.t index 9948983..f71ea57 100644 --- a/t/10_private_method.t +++ b/t/10_private_method.t @@ -56,8 +56,7 @@ with_immutable { isa_ok( $bar, 'Bar' ); dies_ok { $bar->newbar() } "... can't call bar, method is private"; - is scalar @{ $foo->meta->local_private_methods }, 2, - '... got two privates method'; + is $foo->meta->_count_private_methods, 2, "... got two privates method"; } (qw/Foo Bar/); diff --git a/t/11_protected_method.t b/t/11_protected_method.t index a7ef35f..dca8176 100644 --- a/t/11_protected_method.t +++ b/t/11_protected_method.t @@ -38,8 +38,7 @@ with_immutable { isa_ok( $bar, 'Bar' ); is $bar->baz(), 'baz', "... got the good value from &bar"; - is scalar @{ $foo->meta->local_protected_methods }, 1, - '... got one protected method'; + is $foo->meta->_count_protected_methods, 1, "... got one protected method"; } (qw/Foo Bar/); |