From fa1b55452bbe8137b99306b7cfb917f71f8a6481 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 29 Jun 2009 18:03:24 +0200 Subject: initial commit --- xt/tests/Test/MooseX/MethodPrivate.pm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 xt/tests/Test/MooseX/MethodPrivate.pm (limited to 'xt/tests/Test/MooseX/MethodPrivate.pm') diff --git a/xt/tests/Test/MooseX/MethodPrivate.pm b/xt/tests/Test/MooseX/MethodPrivate.pm new file mode 100644 index 0000000..cb8dc4c --- /dev/null +++ b/xt/tests/Test/MooseX/MethodPrivate.pm @@ -0,0 +1,25 @@ +package Test::MooseX::MethodPrivate; + +use strict; +use warnings; +use base 'Test::Class'; +use Test::Exception; +use Test::More; + +sub class { 'MooseX::MethodPrivate' } + +sub startup : Tests(startup => 1) { + my $test = shift; + use_ok $test->class, "use ok"; +} + +sub shutdown : Tests(shutdown) { + my $test = shift; +} + +sub constructor : Tests(1) { + my $test = shift; + can_ok $test->class, 'new'; +} + +1; -- cgit v1.2.3