File Coverage

blib/lib/Ipv4_networks.pm

Criterion	Covered	Total	%
statement	9	160	5.6
branch	0	58	0.0
condition	0	72	0.0
subroutine	3	14	21.4
pod	0	11	0.0
total	12	315	3.8

package Ipv4_networks;
use 5.006001;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ('all' => [ qw(new class_a class_b class_c)]);
our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});
our @EXPORT = qw();
our $VERSION = '0.1';
#####################################################
my @network = qw - 128 192 224 240 248 252 254 255 -;
my ($class, $this, @class_a, @class_b, @class_c);
#####################################################
sub new {
	$class = shift or die $!;
	$this = {};
	bless $this, $class;
	return $this;
}
#####################################################
#Public
sub class_a{
		$this = shift or die $!;
		$this->{ip} = shift or die $!;
        foreach (@network){
                secondo($_);
        }
        foreach (@network){
			for (my$i=0; $i<256;$i++){
				secondo_terzo($i,$_);
			}
		}
		foreach (@network){
			for (my$i=0; $i<256;$i++){
				for (my$i2=0; $i2<256;$i2++){
					secondo_terzo_quarto($i,$i2,$_);
				}
			}
		}
		#no push and return, or memory problems.
}
#Public
sub class_b{
		$this = shift;
		$this->{ip} = shift or die $!;
        foreach (@network){
                terzo($_);
        }
        foreach (@network){
			for (my$i = 0; $i <256; $i++){
				terzo_quarto($i,$_);
			}
		}
		return @class_b;
}
#Public
sub class_c{
		$this = shift;
		$this->{ip} = shift or die $!;
        foreach (@network){
                quarto($_);
        }
		return @class_c;
}
##################################################################################################
#Private
sub secondo{
	    my$n = shift;
		my@split = split /\./, $this->{ip};
        my$terminale = trasforma($n, 'secondo');
        my$magic = 256;
        my$blocchida  = $magic-$n;
        my$numeroblocchi = $magic/$blocchida;
        my$salto = 0;
        my$a = "$split[0]."; my$b = "$salto.0.0/$terminale";
        push @class_a, $a.$b;
        print $a.$b."\n";
        for (my$x = 1; $x<$numeroblocchi; $x++){
                my$c = "$split[0]."; my$d = $salto+=$blocchida; my$e = ".0.0/$terminale";
                print $c.$d.$e."\n";
        }
}
#Private
sub secondo_terzo{
		my$first = shift;
		my$n = shift;
		my@split = split /\./, $this->{ip};
        my$terminale = trasforma($n, 'terzo');
        my$magic = 256;
        my$blocchida  = $magic-$n;
        my$numeroblocchi = $magic/$blocchida;
        my$salto = 0;
        $a = "$split[0].$first.$salto.0/$terminale";
        print $a."\n";
        for (my$x = 1; $x<$numeroblocchi; $x++){
			my$b = "$split[0]."; my$c = "$first."; my$d = $salto+=$blocchida; my$e = ".0/$terminale";
			print $b.$c.$d.$e."\n";
        }

}
#Private
sub secondo_terzo_quarto{
	my$first = shift;
	my$second = shift;
	my$n = shift;
	my@split = split /\./, $this->{ip};
    my$terminale = trasforma($n, 'quarto');
    my$magic = 256;
    my$blocchida  = $magic-$n;
    my$numeroblocchi = $magic/$blocchida;
    my$salto = 0;
    my$a = "$split[0].$first.$second.$salto/$terminale";
    print  $a."\n";
    for (my$x = 1; $x<$numeroblocchi; $x++){
		my$b = "$split[0]."; my$c = "$first.$second."; my$d = $salto+=$blocchida; my$e = "/$terminale";
		print $b.$c.$d.$e."\n";
    }
}
#Private
sub terzo{
	my$n = shift;
	my@split = split /\./, $this->{ip};
    my$terminale = trasforma($n, 'terzo');
    my$magic = 256;
    my$blocchida  = $magic-$n;
    my$numeroblocchi = $magic/$blocchida;
    my$salto = 0;
    my$a = "$split[0].$split[1]."; my$b = "$salto.0/$terminale";
    push @class_b, $a.$b;
    for (my$x = 1; $x<$numeroblocchi; $x++){
         my$c = "$split[0].$split[1]."; my$d = $salto+=$blocchida; my$e = ".0/$terminale";
         push @class_b, $c.$d.$e;
    }
}
#Private
sub terzo_quarto{
	my$first = shift;
	my$n = shift;
	my@split = split /\./, $this->{ip};
    my$terminale = trasforma($n, 'quarto');
    my$magic = 256;
    my$blocchida  = $magic-$n;
    my$numeroblocchi = $magic/$blocchida;
    my$salto = 0;
    my$a = "$split[0].$split[1].$first.$salto/$terminale";
    push @class_b, $a;
    for (my$x = 1; $x<$numeroblocchi; $x++){
         my$b = "$split[0].$split[1]."; my$c = "$first."; my$d = $salto+=$blocchida; my$e = "/$terminale";
         push @class_b, $b.$c.$d.$e;
    }
}
#Private
sub quarto {
        my$n = shift;
		my@split = split /\./, $this->{ip};
        my$terminale = trasforma($n, 'quarto');
        my$magic = 256;
        my$blocchida  = $magic-$n;
        my$numeroblocchi = $magic/$blocchida;
        my$salto = 0;
        my$a = "$split[0].$split[1]."; $b = "$split[2].0/$terminale";
        push @class_c, $a.$b;
        for (my$x = 1; $x<$numeroblocchi; $x++){
                my$c = "$split[0].$split[1].$split[2]."; my$d = $salto+=$blocchida; my$e = "/$terminale";
                push @class_c, $c.$d.$e;
        }
}
#Private
sub trasforma{
        my$n = shift;
        my$metodo = shift;
        my $terminale;
        $terminale = 9 if $n == 128 and $metodo eq 'secondo';
        $terminale = 10 if $n == 192 and $metodo eq 'secondo';
        $terminale = 11 if $n == 224 and $metodo eq 'secondo';
        $terminale = 12 if $n == 240 and $metodo eq 'secondo';
        $terminale = 13 if $n == 248 and $metodo eq 'secondo';
        $terminale = 14 if $n == 252 and $metodo eq 'secondo';
        $terminale = 15 if $n == 254 and $metodo eq 'secondo';
        $terminale = 16 if $n == 255 and $metodo eq 'secondo';
        $terminale = 17 if $n == 128 and $metodo eq 'terzo';
        $terminale = 18 if $n == 192 and $metodo eq 'terzo';
        $terminale = 19 if $n == 224 and $metodo eq 'terzo';
        $terminale = 20 if $n == 240 and $metodo eq 'terzo';
        $terminale = 21 if $n == 248 and $metodo eq 'terzo';
        $terminale = 22 if $n == 252 and $metodo eq 'terzo';
        $terminale = 23 if $n == 254 and $metodo eq 'terzo';
        $terminale = 24 if $n == 255 and $metodo eq 'terzo';
        $terminale = 25 if $n == 128 and $metodo eq 'quarto';
        $terminale = 26 if $n == 192 and $metodo eq 'quarto';
        $terminale = 27 if $n == 224 and $metodo eq 'quarto';
        $terminale = 28 if $n == 240 and $metodo eq 'quarto';
        $terminale = 29 if $n == 248 and $metodo eq 'quarto';
        $terminale = 30 if $n == 252 and $metodo eq 'quarto';
        $terminale = 31 if $n == 254 and $metodo eq 'quarto';
        $terminale = 32 if $n == 255 and $metodo eq 'quarto';
        return $terminale;
}
return 1;

__END__