home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Metadata.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-17  |  915 b   |  32 lines
  1. # $File: //depot/cpan/Module-Install/lib/Module/Install/Admin/Manifest.pm $ $Author: autrijus $
  2. # $Revision: #5 $ $Change: 1263 $ $DateTime: 2003/03/06 02:37:29 $ vim: expandtab shiftwidth=4
  3.  
  4. package Module::Install::Admin::Metadata;
  5. use Module::Install::Base; @ISA = qw(Module::Install::Base);
  6.  
  7. $VERSION = '0.01';
  8.  
  9. use strict;
  10.  
  11. sub remove_meta {
  12.     my $self = shift;
  13.     my $package = ref($self->_top);
  14.     my $version = $self->_top->VERSION;
  15.  
  16.     return unless -f 'META.yml';
  17.     open META, 'META.yml'
  18.       or die "Can't open META.yml for output:\n$!";
  19.     my $meta = do {local $/; <META>};
  20.     close META;
  21.     return unless $meta =~ /^generated_by: $package version $version/m;
  22.     unless (-w 'META.yml') {
  23.         warn "Can't remove META.yml file. Not writable.\n";
  24.         return;
  25.     }
  26.     warn "Removing auto-generated META.yml\n";
  27.     unlink 'META.yml'
  28.       or die "Couldn't unlink META.yml:\n$!";
  29. }
  30.  
  31. 1;
  32.