Commits

Anonymous committed 2defa03

Moved File::Find::Object::internal inside the File/Find/Object.pm module,
for convenience.

Comments (0)

Files changed (3)

 Changes
-lib/File/Find/Object/internal.pm
 lib/File/Find/Object.pm
 Makefile.PL
 MANIFEST			This list of files

lib/File/Find/Object.pm

 # This program is free software, distributed under the same terms as 
 # Parrot.
 
+package File::Find::Object::internal;
+
+use strict;
+use warnings;
+
+use File::Spec;
+sub _curr_file
+{
+    my $self = shift;
+
+    if (@_)
+    {
+        $self->{_curr_file} = shift;
+    }
+
+    return $self->{_curr_file};
+}
+
+sub new {
+    my ($class, $top, $from, $index) = @_;
+
+    my $self = {
+        dir => $top->current_path($from),
+        idx => $index,
+    };
+
+    bless($self, $class);
+
+    $from->{dir} = $self->{dir};
+
+    return $top->open_dir($top->_father($self)) ? $self : undef;
+}
+
 package File::Find::Object;
 
 use strict;
 
 use Carp;
 
-use File::Find::Object::internal;
-
 our $VERSION = '0.0.4';
 
 sub new {

lib/File/Find/Object/internal.pm

-# $Id$
-
-#- Olivier Thauvin <olivier.thauvin@aerov.jussieu.fr>
-
-# This program is free software distributed under the same terms as Parrot.
-
-package File::Find::Object::internal;
-
-use strict;
-use warnings;
-
-use File::Spec;
-sub _curr_file
-{
-    my $self = shift;
-
-    if (@_)
-    {
-        $self->{_curr_file} = shift;
-    }
-
-    return $self->{_curr_file};
-}
-
-sub new {
-    my ($class, $top, $from, $index) = @_;
-
-    my $self = {
-        dir => $top->current_path($from),
-        idx => $index,
-    };
-
-    bless($self, $class);
-
-    $from->{dir} = $self->{dir};
-
-    return $top->open_dir($top->_father($self)) ? $self : undef;
-}
-
-
-1;