view release on metacpan or  search on metacpan

lib/App/Zip/X.pm  view on Meta::CPAN

  my $contents = $self->{zipper}->contents($self->{member})
    or die "no member named '$self->{member}' in $self->{archive}";

  # add XML indentation if necessary
  if ($self->{xml_indent} && ($self->{member} =~ /\.xml$/i || $contents =~ /^<\?xml/)) {
    my $dom   = XML::LibXML->load_xml(string => $contents, recover => 1);
    $contents = $dom->toString(XML_SIMPLE_INDENT); # already utf8-encoded 
  }

  # write on STDOUT
  binmode STDOUT, ':raw';
  print $contents;
}


sub replace {
  my ($self) = @_;

  # slurp contents from file relative to current directory
  local $/;
  open my $fh, "<:raw", $self->{member} or die "open $self->{member}: $!";