[Bps-public-commit] r15134 - in Class-Load/trunk: . lib/Class t
sartak at bestpractical.com
sartak at bestpractical.com
Wed Aug 13 14:35:59 EDT 2008
Author: sartak
Date: Wed Aug 13 14:35:59 2008
New Revision: 15134
Modified:
Class-Load/trunk/ (props changed)
Class-Load/trunk/Makefile.PL
Class-Load/trunk/lib/Class/Require.pm
Class-Load/trunk/t/000-load.t
Class-Load/trunk/t/001-is-class-loaded.t
Class-Load/trunk/t/002-try-load-class.t
Class-Load/trunk/t/003-load-class.t
Class-Load/trunk/t/lib/Class/Require/OK.pm
Class-Load/trunk/t/lib/Class/Require/SyntaxError.pm
Log:
r69495 at onn: sartak | 2008-08-13 14:35:31 -0400
Begin renaming Class-Require to Class-Load
Modified: Class-Load/trunk/Makefile.PL
==============================================================================
--- Class-Load/trunk/Makefile.PL (original)
+++ Class-Load/trunk/Makefile.PL Wed Aug 13 14:35:59 2008
@@ -1,7 +1,7 @@
use inc::Module::Install;
-name 'Class-Require';
-all_from 'lib/Class/Require.pm';
+name 'Class-Load';
+all_from 'lib/Class/Load.pm';
build_requires 'Test::More';
Modified: Class-Load/trunk/lib/Class/Require.pm
==============================================================================
--- Class-Load/trunk/lib/Class/Require.pm (original)
+++ Class-Load/trunk/lib/Class/Require.pm Wed Aug 13 14:35:59 2008
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-package Class::Require;
+package Class::Load;
use strict;
use warnings;
use base 'Exporter';
Modified: Class-Load/trunk/t/000-load.t
==============================================================================
--- Class-Load/trunk/t/000-load.t (original)
+++ Class-Load/trunk/t/000-load.t Wed Aug 13 14:35:59 2008
@@ -3,5 +3,5 @@
use warnings;
use Test::More tests => 1;
-use_ok 'Class::Require';
+use_ok 'Class::Load';
Modified: Class-Load/trunk/t/001-is-class-loaded.t
==============================================================================
--- Class-Load/trunk/t/001-is-class-loaded.t (original)
+++ Class-Load/trunk/t/001-is-class-loaded.t Wed Aug 13 14:35:59 2008
@@ -3,74 +3,74 @@
use warnings;
use Test::More tests => 11;
-use Class::Require 'is_class_loaded';
+use Class::Load 'is_class_loaded';
# basic {{{
-ok(is_class_loaded('Class::Require'), "Class::Require is loaded");
-ok(!is_class_loaded('Class::Require::NONEXISTENT'), "nonexistent class is NOT loaded");
+ok(is_class_loaded('Class::Load'), "Class::Load is loaded");
+ok(!is_class_loaded('Class::Load::NONEXISTENT'), "nonexistent class is NOT loaded");
# }}}
# @ISA (yes) {{{
do {
- package Class::Require::WithISA;
- our @ISA = 'Class::Require';
+ package Class::Load::WithISA;
+ our @ISA = 'Class::Load';
};
-ok(is_class_loaded('Class::Require::WithISA'), "class that defines \@ISA is loaded");
+ok(is_class_loaded('Class::Load::WithISA'), "class that defines \@ISA is loaded");
# }}}
# $ISA (yes, sadly) {{{
do {
- package Class::Require::WithScalarISA;
- our $ISA = 'Class::Require';
+ package Class::Load::WithScalarISA;
+ our $ISA = 'Class::Load';
};
-ok(is_class_loaded('Class::Require::WithScalarISA'), "class that defines \$ISA is loaded");
+ok(is_class_loaded('Class::Load::WithScalarISA'), "class that defines \$ISA is loaded");
# }}}
# $VERSION (yes) {{{
do {
- package Class::Require::WithVERSION;
+ package Class::Load::WithVERSION;
our $VERSION = '1.0';
};
-ok(is_class_loaded('Class::Require::WithVERSION'), "class that defines \$VERSION is loaded");
+ok(is_class_loaded('Class::Load::WithVERSION'), "class that defines \$VERSION is loaded");
# }}}
# @VERSION (yes, sadly) {{{
do {
- package Class::Require::WithArrayVERSION;
+ package Class::Load::WithArrayVERSION;
our @VERSION = "1.0";
};
-ok(is_class_loaded('Class::Require::WithArrayVERSION'), "class that defines \@VERSION is loaded");
+ok(is_class_loaded('Class::Load::WithArrayVERSION'), "class that defines \@VERSION is loaded");
# }}}
# method (yes) {{{
do {
- package Class::Require::WithMethod;
+ package Class::Load::WithMethod;
sub foo { }
};
-ok(is_class_loaded('Class::Require::WithMethod'), "class that defines any method is loaded");
+ok(is_class_loaded('Class::Load::WithMethod'), "class that defines any method is loaded");
# }}}
# global scalar (no) {{{
do {
- package Class::Require::WithScalar;
+ package Class::Load::WithScalar;
our $FOO = 1;
};
-ok(!is_class_loaded('Class::Require::WithScalar'), "class that defines just a scalar is not loaded");
+ok(!is_class_loaded('Class::Load::WithScalar'), "class that defines just a scalar is not loaded");
# }}}
# subpackage (no) {{{
do {
- package Class::Require::Foo::Bar;
+ package Class::Load::Foo::Bar;
sub bar {}
};
-ok(!is_class_loaded('Class::Require::Foo'), "even if Foo::Bar is loaded, Foo is not");
+ok(!is_class_loaded('Class::Load::Foo'), "even if Foo::Bar is loaded, Foo is not");
# }}}
# superstring (no) {{{
do {
- package Class::Require::Quuxquux;
+ package Class::Load::Quuxquux;
sub quux {}
};
-ok(!is_class_loaded('Class::Require::Quux'), "Quuxquux does not imply the existence of Quux");
+ok(!is_class_loaded('Class::Load::Quux'), "Quuxquux does not imply the existence of Quux");
# }}}
# use constant (yes) {{{
do {
- package Class::Require::WithConstant;
+ package Class::Load::WithConstant;
use constant PI => 3;
};
-ok(is_class_loaded('Class::Require::WithConstant'), "defining a constant means the class is loaded");
+ok(is_class_loaded('Class::Load::WithConstant'), "defining a constant means the class is loaded");
# }}}
Modified: Class-Load/trunk/t/002-try-load-class.t
==============================================================================
--- Class-Load/trunk/t/002-try-load-class.t (original)
+++ Class-Load/trunk/t/002-try-load-class.t Wed Aug 13 14:35:59 2008
@@ -2,37 +2,37 @@
use strict;
use warnings;
use Test::More tests => 18;
-use Class::Require ':all';
+use Class::Load ':all';
use lib 't/lib';
-ok(try_load_class('Class::Require::OK'), "loaded class OK");
-is($Class::Require::ERROR, undef);
+ok(try_load_class('Class::Load::OK'), "loaded class OK");
+is($Class::Load::ERROR, undef);
-ok(!try_load_class('Class::Require::Nonexistent'), "didn't load class Nonexistent");
-like($Class::Require::ERROR, qr{^Can't locate Class/Require/Nonexistent.pm in \@INC});
+ok(!try_load_class('Class::Load::Nonexistent'), "didn't load class Nonexistent");
+like($Class::Load::ERROR, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC});
-ok(try_load_class('Class::Require::OK'), "loaded class OK");
-is($Class::Require::ERROR, undef);
+ok(try_load_class('Class::Load::OK'), "loaded class OK");
+is($Class::Load::ERROR, undef);
-ok(!try_load_class('Class::Require::SyntaxError'), "didn't load class SyntaxError");
-like($Class::Require::ERROR, qr{^Missing right curly or square bracket at });
+ok(!try_load_class('Class::Load::SyntaxError'), "didn't load class SyntaxError");
+like($Class::Load::ERROR, qr{^Missing right curly or square bracket at });
-ok(!try_load_class('Class::Require::Nonexistent'), "didn't load class Nonexistent");
-like($Class::Require::ERROR, qr{^Can't locate Class/Require/Nonexistent.pm in \@INC});
+ok(!try_load_class('Class::Load::Nonexistent'), "didn't load class Nonexistent");
+like($Class::Load::ERROR, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC});
-ok(!try_load_class('Class::Require::SyntaxError'), "didn't load class SyntaxError");
-like($Class::Require::ERROR, qr{^Missing right curly or square bracket at });
+ok(!try_load_class('Class::Load::SyntaxError'), "didn't load class SyntaxError");
+like($Class::Load::ERROR, qr{^Missing right curly or square bracket at });
-ok(is_class_loaded('Class::Require::OK'));
-ok(!is_class_loaded('Class::Require::Nonexistent'));
-ok(!is_class_loaded('Class::Require::SyntaxError'));
+ok(is_class_loaded('Class::Load::OK'));
+ok(!is_class_loaded('Class::Load::Nonexistent'));
+ok(!is_class_loaded('Class::Load::SyntaxError'));
do {
- package Class::Require::Inlined;
+ package Class::Load::Inlined;
sub inlined { 1 }
};
-ok(try_load_class('Class::Require::Inlined'), "loaded class Inlined");
-is($Class::Require::ERROR, undef);
-ok(is_class_loaded('Class::Require::Inlined'));
+ok(try_load_class('Class::Load::Inlined'), "loaded class Inlined");
+is($Class::Load::ERROR, undef);
+ok(is_class_loaded('Class::Load::Inlined'));
Modified: Class-Load/trunk/t/003-load-class.t
==============================================================================
--- Class-Load/trunk/t/003-load-class.t (original)
+++ Class-Load/trunk/t/003-load-class.t Wed Aug 13 14:35:59 2008
@@ -2,46 +2,46 @@
use strict;
use warnings;
use Test::More tests => 18;
-use Class::Require ':all';
+use Class::Load ':all';
use Test::Exception;
use lib 't/lib';
-ok(load_class('Class::Require::OK'), "loaded class OK");
-is($Class::Require::ERROR, undef);
+ok(load_class('Class::Load::OK'), "loaded class OK");
+is($Class::Load::ERROR, undef);
throws_ok {
- load_class('Class::Require::Nonexistent')
-} qr{^Can't locate Class/Require/Nonexistent.pm in \@INC};
-like($Class::Require::ERROR, qr{^Can't locate Class/Require/Nonexistent.pm in \@INC});
+ load_class('Class::Load::Nonexistent')
+} qr{^Can't locate Class/Load/Nonexistent.pm in \@INC};
+like($Class::Load::ERROR, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC});
-ok(load_class('Class::Require::OK'), "loaded class OK");
-is($Class::Require::ERROR, undef);
+ok(load_class('Class::Load::OK'), "loaded class OK");
+is($Class::Load::ERROR, undef);
throws_ok {
- load_class('Class::Require::SyntaxError')
+ load_class('Class::Load::SyntaxError')
} qr{^Missing right curly or square bracket at };
-like($Class::Require::ERROR, qr{^Missing right curly or square bracket at });
+like($Class::Load::ERROR, qr{^Missing right curly or square bracket at });
throws_ok {
- load_class('Class::Require::Nonexistent')
-} qr{^Can't locate Class/Require/Nonexistent.pm in \@INC};
-like($Class::Require::ERROR, qr{^Can't locate Class/Require/Nonexistent.pm in \@INC});
+ load_class('Class::Load::Nonexistent')
+} qr{^Can't locate Class/Load/Nonexistent.pm in \@INC};
+like($Class::Load::ERROR, qr{^Can't locate Class/Load/Nonexistent.pm in \@INC});
throws_ok {
- load_class('Class::Require::SyntaxError')
+ load_class('Class::Load::SyntaxError')
} qr{^Missing right curly or square bracket at };
-like($Class::Require::ERROR, qr{^Missing right curly or square bracket at });
+like($Class::Load::ERROR, qr{^Missing right curly or square bracket at });
-ok(is_class_loaded('Class::Require::OK'));
-ok(!is_class_loaded('Class::Require::Nonexistent'));
-ok(!is_class_loaded('Class::Require::SyntaxError'));
+ok(is_class_loaded('Class::Load::OK'));
+ok(!is_class_loaded('Class::Load::Nonexistent'));
+ok(!is_class_loaded('Class::Load::SyntaxError'));
do {
- package Class::Require::Inlined;
+ package Class::Load::Inlined;
sub inlined { 1 }
};
-ok(load_class('Class::Require::Inlined'), "loaded class Inlined");
-is($Class::Require::ERROR, undef);
-ok(is_class_loaded('Class::Require::Inlined'));
+ok(load_class('Class::Load::Inlined'), "loaded class Inlined");
+is($Class::Load::ERROR, undef);
+ok(is_class_loaded('Class::Load::Inlined'));
Modified: Class-Load/trunk/t/lib/Class/Require/OK.pm
==============================================================================
--- Class-Load/trunk/t/lib/Class/Require/OK.pm (original)
+++ Class-Load/trunk/t/lib/Class/Require/OK.pm Wed Aug 13 14:35:59 2008
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-package Class::Require::OK;
+package Class::Load::OK;
use strict;
use warnings;
Modified: Class-Load/trunk/t/lib/Class/Require/SyntaxError.pm
==============================================================================
--- Class-Load/trunk/t/lib/Class/Require/SyntaxError.pm (original)
+++ Class-Load/trunk/t/lib/Class/Require/SyntaxError.pm Wed Aug 13 14:35:59 2008
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-package Class::Require::SyntaxError;
+package Class::Load::SyntaxError;
use strict;
use warnings;
More information about the Bps-public-commit
mailing list