File Coverage

blib/lib/Net/TinyIp/Address/v6.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	22	72.7

package Net::TinyIp::Address::v6;
use strict;
use warnings;
use base "Net::TinyIp::Address";
use Readonly;

Readonly our $VERSION        => 6;
Readonly our $BITS_PER_BLOCK => 16;
Readonly our $BLOCK_LENGTH   => 8;
Readonly our $BITS_LENGTH    => $BITS_PER_BLOCK * $BLOCK_LENGTH;
Readonly our $SEPARATOR      => q{:};

our $BLOCK_FORMAT = q{%04x};

sub from_string {
    my $class = shift;
    my $str   = shift;

    return $class->from_hex( join q{}, q{0x}, map { $_ } split m{[$SEPARATOR]}, $str );
}

1;