From: Stevan Little Date: Fri, 3 Feb 2006 01:12:50 +0000 (+0000) Subject: Class::MOP - moving things from t/lib to examples/ X-Git-Tag: 0_02~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce87e388953089361747e7d8b797c6c691c63f90;p=gitmo%2FClass-MOP.git Class::MOP - moving things from t/lib to examples/ --- diff --git a/t/lib/InsideOutClass.pm b/examples/InsideOutClass.pm similarity index 100% rename from t/lib/InsideOutClass.pm rename to examples/InsideOutClass.pm diff --git a/t/lib/CountingClass.pm b/examples/InstanceCountingClass.pm similarity index 92% rename from t/lib/CountingClass.pm rename to examples/InstanceCountingClass.pm index 36935ff..75de0db 100644 --- a/t/lib/CountingClass.pm +++ b/examples/InstanceCountingClass.pm @@ -1,5 +1,5 @@ -package CountingClass; +package InstanceCountingClass; use strict; use warnings; diff --git a/t/101_CountingClass_test.t b/t/101_InstanceCountingClass_test.t similarity index 91% rename from t/101_CountingClass_test.t rename to t/101_InstanceCountingClass_test.t index 0029e5c..e47ab1b 100644 --- a/t/101_CountingClass_test.t +++ b/t/101_InstanceCountingClass_test.t @@ -7,7 +7,7 @@ use Test::More tests => 12; BEGIN { use_ok('Class::MOP'); - use_ok('t::lib::CountingClass'); + use_ok('examples::InstanceCountingClass'); } =pod @@ -22,7 +22,7 @@ a simple demonstration of how to make a metaclass. { package Foo; - sub meta { CountingClass->initialize($_[0]) } + sub meta { InstanceCountingClass->initialize($_[0]) } sub new { my $class = shift; bless $class->meta->construct_instance() => $class; diff --git a/t/102_InsideOutClass_test.t b/t/102_InsideOutClass_test.t index 06a4c4e..f73eef4 100644 --- a/t/102_InsideOutClass_test.t +++ b/t/102_InsideOutClass_test.t @@ -7,7 +7,7 @@ use Test::More no_plan => 2; BEGIN { use_ok('Class::MOP'); - use_ok('t::lib::InsideOutClass'); + use_ok('examples::InsideOutClass'); } {