fix pod coverage, etc

diff --git a/lib/Class/C3.pm b/lib/Class/C3.pm
index 8e7dc0a..1175355 100644 (file)
--- a/lib/Class/C3.pm
+++ b/lib/Class/C3.pm
@@ -6,15 +6,6 @@ use warnings;
 
 our $VERSION = '0.15_01';
 
-# Class::C3 defines Class::C3::* in pure perl
-# if mro, it does nothing else
-#   elsif Class::C3::XS, do nothing else
-#     else load next.pm
-# Class::C3::XS defines the same routines as next.pm,
-#  and also redefines (suppress warning) calculateMRO
-#  (ditto for anything else in Class::C3::* we want to
-#   XS-ize).
-
 our $C3_IN_CORE;
 
 BEGIN {

diff --git a/lib/Class/C3/next.pm b/lib/Class/C3/next.pm
index 5f36599..61ef337 100644 (file)
--- a/lib/Class/C3/next.pm
+++ b/lib/Class/C3/next.pm
@@ -69,3 +69,36 @@ our $VERSION = '0.02';
 sub method { (next::method($_[0]) || return)->(@_) }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Class::C3::next - Pure-perl next::method and friends
+
+=head1 DESCRIPTION
+
+This module is used internally by L<Class::C3> when
+neccesary, and shouldn't be used (or required in
+distribution dependencies) directly.  It
+defines C<next::method>, C<next::can>, and
+C<maybe::next::method> in pure perl.
+
+=head1 AUTHOR
+
+Stevan Little, E<lt>stevan@iinteractive.comE<gt>
+
+Brandon L. Black, E<lt>blblack@gmail.comE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2005, 2006 by Infinity Interactive, Inc.
+
+L<http://www.iinteractive.com>
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut

diff --git a/t/00_load.t b/t/00_load.t
index 9703116..125fbde 100644 (file)
--- a/t/00_load.t
+++ b/t/00_load.t
@@ -3,8 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 BEGIN {
     use_ok('Class::C3');
-}
\ No newline at end of file
+    use_ok('Class::C3::next');
+}

diff --git a/t/33_next_method_used_with_NEXT.t b/t/33_next_method_used_with_NEXT.t
index c0ed1e1..b2e4843 100644 (file)
--- a/t/33_next_method_used_with_NEXT.t
+++ b/t/33_next_method_used_with_NEXT.t
@@ -38,7 +38,6 @@ BEGIN {
     package Baz;
     use strict;
     use warnings;    
-    use Class::C3;
     require NEXT; # load this as late as possible so we can catch the test skip
 
     use base 'Bar', 'Fuz';