From d1bab5d4a5ea4100803c871461c62744767c514b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 19 Jul 2010 19:21:54 -0500
Subject: a few more tests

---
 t/lib/Command/Role/Class.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 t/lib/Command/Role/Class.pm

(limited to 't/lib/Command/Role/Class.pm')

diff --git a/t/lib/Command/Role/Class.pm b/t/lib/Command/Role/Class.pm
new file mode 100644
index 0000000..78b48db
--- /dev/null
+++ b/t/lib/Command/Role/Class.pm
@@ -0,0 +1,26 @@
+package Command::Role::Class;
+use Moose::Role;
+
+sub get_all_commands {
+    my ($self) = @_;
+    grep { Moose::Util::does_role($_, 'Command::Role::Method') }
+         $self->get_all_methods;
+}
+
+sub has_command {
+    my ($self, $name) = @_;
+    my $method = $self->find_method_by_name($name);
+    return unless $method;
+    return Moose::Util::does_role($method, 'Command::Role::Method');
+}
+
+sub get_command {
+    my ($self, $name) = @_;
+    my $method = $self->find_method_by_name($name);
+    return unless $method;
+    return Moose::Util::does_role($method, 'Command::Role::Method')
+         ? $method
+         : ();
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf