From 14d0bf15ab9cbc06fdc12ce11e473a35ab9372f3 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 29 Apr 2010 14:38:23 +0200
Subject: add count to attributes and methods

---
 t/10_private_method.t   | 3 +--
 t/11_protected_method.t | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

(limited to 't')

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/);
 
-- 
cgit 1.4.1