[svn:parrot] r17382 - in branches/buildtools: lib/Parrot/Docs t/perl tools/docs

[jkeenan]

Author: jkeenan
Date: Thu Mar  8 05:19:04 2007
New Revision: 17382

Modified:
   branches/buildtools/lib/Parrot/Docs/Item.pm
   branches/buildtools/lib/Parrot/Docs/Section.pm
   branches/buildtools/t/perl/Parrot_Distribution.t
   branches/buildtools/tools/docs/pod_errors.pl

Log:
Part of an experiment to see if Parrot::Docs::Directory can be refactored out 
of existence.

Modified: branches/buildtools/lib/Parrot/Docs/Item.pm
==============================================================================
--- branches/buildtools/lib/Parrot/Docs/Item.pm (original)
+++ branches/buildtools/lib/Parrot/Docs/Item.pm Thu Mar  8 05:19:04 2007
@@ -33,7 +33,7 @@
 use strict;
 use warnings;
 
-use Parrot::Docs::Directory;
+# use Parrot::Docs::Directory;
 use Parrot::Docs::POD2HTML;
 
 =item C<new_item($text, @paths)>

Modified: branches/buildtools/lib/Parrot/Docs/Section.pm
==============================================================================
--- branches/buildtools/lib/Parrot/Docs/Section.pm      (original)
+++ branches/buildtools/lib/Parrot/Docs/Section.pm      Thu Mar  8 05:19:04 2007
@@ -30,7 +30,7 @@
 use base qw( Parrot::Docs::Group );
 
 use Parrot::Docs::Item;
-use Parrot::Docs::Directory;
+# use Parrot::Docs::Directory;
 use Parrot::Docs::HTMLPage;
 
 =item C<root_section()>

Modified: branches/buildtools/t/perl/Parrot_Distribution.t
==============================================================================
--- branches/buildtools/t/perl/Parrot_Distribution.t    (original)
+++ branches/buildtools/t/perl/Parrot_Distribution.t    Thu Mar  8 05:19:04 2007
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
-use Test::More tests => 34;
+use Test::More qw(no_plan); # tests => 34;
 use File::Spec;
 
 =head1 NAME
@@ -28,6 +28,7 @@
 chdir 't/perl';
 my $d = Parrot::Distribution->new();
 isa_ok( $d, 'Parrot::Docs::Directory' );
+isa_ok( $d, 'Parrot::IO::Directory' );
 
 {
     my $d2 = Parrot::Distribution->new;

Modified: branches/buildtools/tools/docs/pod_errors.pl
==============================================================================
--- branches/buildtools/tools/docs/pod_errors.pl        (original)
+++ branches/buildtools/tools/docs/pod_errors.pl        Thu Mar  8 05:19:04 2007
@@ -19,9 +19,11 @@
 use strict;
 use warnings;
 use lib 'lib';
-use Parrot::Docs::Directory;
+# use Parrot::Docs::Directory;
+use Parrot::IO::Directory;
 
-my $dir = Parrot::Docs::Directory->new( shift || '.' );
+# my $dir = Parrot::Docs::Directory->new( shift || '.' );
+my $dir = Parrot::IO::Directory->new( shift || '.' );
 my $ignore = shift || '^(icu)$';
 
 foreach my $file ( $dir->files( 1, $ignore ) ) {