File Coverage

blib/lib/NetAddr/IP/Obfuscate.pm

Criterion	Covered	Total	%
statement	15	45	33.3
branch	0	12	0.0
condition			n/a
subroutine	5	9	55.5
pod	0	1	0.0
total	20	67	29.8

package NetAddr::IP::Obfuscate;

require 5.006_000; # Needed for NetAddr::IP and the $fh in _slurp_file
use strict;
use warnings;
require Exporter;

our @ISA = qw(Exporter);

use vars qw($VERSION @EXPORT);

$VERSION = '0.02';
@EXPORT = qw(do_obfu);

use Carp;
use NetAddr::IP::Find;

sub do_obfu {

  my %obfuscated;
  my $infile;
  my $net;
  my $outfile;

  if (scalar(@_) == 0) {
    # No arguments, supply some sane defaults
      $infile = "-";
      $net = "10.0.0.0/8";
      $outfile = "STDOUT";

    } else {

      ($infile,$net,$outfile) = @_;

    }


  my $text_ref = _slurp_file ($infile);

  my $ip = NetAddr::IP->new("$net");

  find_ipaddrs($$text_ref, sub {
		 my($ipaddr, $orig) = @_;
		 return $obfuscated{$orig} if exists $obfuscated{$orig};
		 ++$ip;
		 $obfuscated{$orig} = $ip->addr;
	       });

  _burp_file ($outfile, $text_ref);

  return values %obfuscated if wantarray();

  return scalar(keys %obfuscated);

}


sub _slurp_file {

  my $infile = shift;

  open( my $fh, $infile ) or croak "Unable to open $infile in _slurp_file: $!\n";

  my $text = do { local( $/ ) ; <$fh> } ;

  return \$text;

}

sub _burp_file {

  my $outfile = shift;
  my $text_ref = shift;

  if ($outfile eq "STDOUT") {

    print $$text_ref;

  } else {

    open( my $fh, ">$outfile" ) or croak "Unable to open $outfile in _burp_file: $!\n" ;

    print $fh $$text_ref ;

  }

}

1;

__END__