r1478 - in packages/libclass-inspector-perl/branches/upstream/current: . lib/Class t

[Gunnar Wolf]

Author: gwolf
Date: 2005-11-11 20:03:06 +0000 (Fri, 11 Nov 2005)
New Revision: 1478

Modified:
   packages/libclass-inspector-perl/branches/upstream/current/Changes
   packages/libclass-inspector-perl/branches/upstream/current/META.yml
   packages/libclass-inspector-perl/branches/upstream/current/README
   packages/libclass-inspector-perl/branches/upstream/current/lib/Class/Inspector.pm
   packages/libclass-inspector-perl/branches/upstream/current/t/99_pod.t
Log:
Load /tmp/tmp.NA6Arn/libclass-inspector-perl-1.13 into
packages/libclass-inspector-perl/branches/upstream/current.


Modified: packages/libclass-inspector-perl/branches/upstream/current/Changes
===================================================================
--- packages/libclass-inspector-perl/branches/upstream/current/Changes	2005-11-09 16:24:52 UTC (rev 1477)
+++ packages/libclass-inspector-perl/branches/upstream/current/Changes	2005-11-11 20:03:06 UTC (rev 1478)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Class::Inspector.
 
+1.13 Wed Sep 28 2005
+	- Fixed a minor POD bug in the synopsis
+
 1.12 Fri Sep  9 2005
 	- Added a fix for classes with insanely broken ->isa methods
 	  that cause Perl to die.

Modified: packages/libclass-inspector-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libclass-inspector-perl/branches/upstream/current/META.yml	2005-11-09 16:24:52 UTC (rev 1477)
+++ packages/libclass-inspector-perl/branches/upstream/current/META.yml	2005-11-11 20:03:06 UTC (rev 1478)
@@ -1,5 +1,5 @@
 name: Class-Inspector
-version: 1.12
+version: 1.13
 abstract: Get information about a class and its structure
 author: Adam Kennedy <cpan at ali.as>
 license: unknown

Modified: packages/libclass-inspector-perl/branches/upstream/current/README
===================================================================
--- packages/libclass-inspector-perl/branches/upstream/current/README	2005-11-09 16:24:52 UTC (rev 1477)
+++ packages/libclass-inspector-perl/branches/upstream/current/README	2005-11-11 20:03:06 UTC (rev 1478)
@@ -18,8 +18,8 @@
       Class::Inspector->function_exists( 'Foo::Class', 'bar' );
       Class::Inspector->methods( 'Foo::Class', 'full', 'public' );
   
-      # Find all loaded classes that are something
-      Class::Inspector->find( 'Foo::Class' );
+      # Find all loaded subclasses or something
+      Class::Inspector->subclasses( 'Foo::Class' );
 
 DESCRIPTION
     Class::Inspector allows you to get information about a loaded class.

Modified: packages/libclass-inspector-perl/branches/upstream/current/lib/Class/Inspector.pm
===================================================================
--- packages/libclass-inspector-perl/branches/upstream/current/lib/Class/Inspector.pm	2005-11-09 16:24:52 UTC (rev 1477)
+++ packages/libclass-inspector-perl/branches/upstream/current/lib/Class/Inspector.pm	2005-11-11 20:03:06 UTC (rev 1478)
@@ -24,8 +24,8 @@
   Class::Inspector->function_exists( 'Foo::Class', 'bar' );
   Class::Inspector->methods( 'Foo::Class', 'full', 'public' );
   
-  # Find all loaded classes that are something
-  Class::Inspector->find( 'Foo::Class' );
+  # Find all loaded subclasses or something
+  Class::Inspector->subclasses( 'Foo::Class' );
 
 =head1 DESCRIPTION
 
@@ -43,14 +43,13 @@
 
 # We don't want to use strict refs, since we do a lot of things in here
 # that arn't strict refs friendly.
-use strict     'vars',
-               'subs';
+use strict     qw{vars subs};
 use File::Spec ();
 
 # Globals
 use vars qw{$VERSION $RE_IDENT $RE_CLASS $UNIX};
 BEGIN {
-	$VERSION = '1.12';
+	$VERSION = '1.13';
 
 	# Predefine some regexs
 	$RE_IDENT = qr/\A[^\W\d]\w*\z/s;

Modified: packages/libclass-inspector-perl/branches/upstream/current/t/99_pod.t
===================================================================
--- packages/libclass-inspector-perl/branches/upstream/current/t/99_pod.t	2005-11-09 16:24:52 UTC (rev 1477)
+++ packages/libclass-inspector-perl/branches/upstream/current/t/99_pod.t	2005-11-11 20:03:06 UTC (rev 1478)
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 use Test::More;
 eval "use Test::Pod 1.00";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;