[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.46,1.47

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19431/lib/OpenInteract2

Modified Files:
	Package.pm 
Log Message:
add name_as_class() (small) and copy_contents_to() (larger)


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -d -r1.46 -r1.47
*** Package.pm	2 Feb 2005 15:47:21 -0000	1.46
--- Package.pm	8 Feb 2005 01:10:41 -0000	1.47
***************
*** 11,15 ****
  use File::Basename           qw( basename dirname );
  use File::Copy               qw( cp );
! use File::Path               ();
  use File::Spec::Functions    qw( :ALL );
  use File::Temp               qw( tempdir );
--- 11,15 ----
  use File::Basename           qw( basename dirname );
  use File::Copy               qw( cp );
! use File::Path               qw( mkpath );
  use File::Spec::Functions    qw( :ALL );
  use File::Temp               qw( tempdir );
***************
*** 167,170 ****
--- 167,178 ----
  }
  
+ sub name_as_class {
+     my ( $self, $name ) = @_;
+     $name ||= $self->name;
+     my $class_name = ucfirst $name;
+     $class_name =~ s/_(\w)/\U$1\U/g;
+     return $class_name;
+ }
+ 
  # don't use split here since the package name might have a '-' in it
  # (shouldn't happen, but still)
***************
*** 433,436 ****
--- 441,471 ----
  
  
+ ########################################
+ # COPY PACKAGE FILES
+ 
+ sub copy_contents_to {
+     my ( $self, $dest_dir ) = @_;
+     my $src_dir = $self->directory;
+     my @copied = ();
+     my @same   = ();
+     foreach my $file ( @{ $self->get_files } ) {
+         my $src_path  = catfile( $src_dir, $file );
+         my $dest_path = catfile( $dest_dir, $file );
+         if ( OpenInteract2::Util->is_same_file( $src_path, $dest_path ) ) {
+             push @same, $file;
+         }
+         else {
+             $self->_create_full_path( $dest_path );
+             cp( $src_path, $dest_path )
+                 || oi_error "Cannot copy '$src_path' -> '$dest_path': $!";
+             push @copied, $file;
+         }
+     }
+     return {
+         copied => \@copied,
+         same   => \@same,
+     };
+ }
+ 
  
  ########################################
***************
*** 574,578 ****
      # operation fails -- you don't need '|| die $!'
  
!     File::Path::mkpath( $dirname, undef, 0755 );
      return 1;
  
--- 609,613 ----
      # operation fails -- you don't need '|| die $!'
  
!     mkpath( $dirname, undef, 0755 );
      return 1;
  
***************
*** 842,850 ****
      require OpenInteract2::Brick;
      my $brick = OpenInteract2::Brick->new( 'package' );
!     my $class_name = ucfirst $name;
!     $class_name =~ s/_(\w)/\U$1\U/g;
      return $brick->copy_all_resources_to( $dest_dir, {
          package_name => $name,
!         class_name   => $class_name 
      });
  }
--- 877,884 ----
      require OpenInteract2::Brick;
      my $brick = OpenInteract2::Brick->new( 'package' );
!     my $class_name = $class->name_as_class( $name );
      return $brick->copy_all_resources_to( $dest_dir, {
          package_name => $name,
!         class_name   => $class_name,
      });
  }
***************
*** 1499,1502 ****
--- 1533,1549 ----
   # Name: foo-1.52
  
+ B<name_as_class()>
+ 
+ Displays the package name as suitable for a class: leading uppercase
+ with camel-case internally replacing all underscores. For instance:
+ 
+  $package->name( 'foo' );
+  print "Class name: ", $package->name_as_class;
+  # Class name: Foo
+  
+  $package->name( 'music_listener' );
+  print "Class name: ", $package->name_as_class;
+  # Class name: MusicListener
+ 
  B<get_files( [ $force_read ] )>
  
***************
*** 1522,1525 ****
--- 1569,1591 ----
  Returns: the full path to the distribution file created.
  
+ See also: L<OpenInteract2::Manage::Package::CreateCPAN> for creating a
+ CPAN distribution from your package.
+ 
+ B<copy_contents_to( $destination_dir )>
+ 
+ Copies all files from this package (those identified in 'MANIFEST') to
+ C<$destination_dir>. If C<$destination_dir> does not exist we create
+ it; if it does exist we overwrite any different files that match the
+ paths from the source package. ('Different' means the files must be of
+ a different size and have a different MD5 digest.)
+ 
+ You typically want to use this for copying a package installed to a
+ website to another package -- for syncing up a directory it would
+ probably be faster to just use L<Archive::Zip>.
+ 
+ Returns: hashref with two keys, 'copied' and 'same', each pointing to
+ an arrayref of relative files appropriate to the key. ('Relative'
+ means the path from MANIFEST, e.g. 'OpenInteract2/Action/MyAction.pm').
+ 
  B<check( \%params )>