File Coverage

blib/lib/Mock/Data/Plugin/Net.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	3	4	75.0
total	18	19	94.7

package Mock::Data::Plugin::Net;
use Mock::Data::Plugin -exporter_setup => 1;
our @generators= qw( ipv4 cidr macaddr );
export(@generators);

our $VERSION = '0.04'; # VERSION
# ABSTRACT: Collection of generators for Internet-related data


sub apply_mockdata_plugin {
	my ($class, $mock)= @_;
	$mock->add_generators(
		map +("Net::$_" => $class->can($_)), @generators
	);
}


sub ipv4 {
	sprintf "127.%d.%d.%d", rand 256, rand 256, 1+rand 254;
}


sub cidr {
	my $blank= 1 + int rand 23;
	my $val= (int rand(1<<(24 - $blank))) << $blank;
	sprintf '127.%d.%d.%d/%d', (unpack 'C4', pack 'N', $val)[1,2,3], 32 - $blank;
}


sub macaddr {
	sprintf '%02x:%02x:%02x:%02x:%02x:%02x',
		((rand 64)<<2) | 0x02, rand 256, rand 256,
		rand 256, rand 256, rand 256
}

1;

__END__