added ip parser

[pxelator] / lib / PXElator / t / ip.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 5;
use Data::Dump qw/dump/;

use_ok 'ip';

foreach my $object ( qw/link route/ ) {
        ok( my @a = ip::lines( $object ), "lines $object" );
        diag dump( @a );
        ok( my $h = ip::html( $object ), "html $object" );
        diag $h;
}