File Coverage

blib/lib/Net/IP/Match/Trie/XS.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	3	33.3
total	24	27	88.8

# -*- mode: coding: utf-8; -*-
package Net::IP::Match::Trie;

use strict;
use warnings;

our $VERSION = '0.01_01';

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub new {
    my($class, %opt) = @_;
    my $self = bless {}, $class;
    $self->_initialize();
    return $self;
}

# name => [ cidr1, cidr2, ... ]
sub add {
    my($self, $name, $cidrs) = @_;

    for my $cidr (@$cidrs) {
        my($network, $netmask) = split m{/}, $cidr;
        $netmask ||= 32;
        $self->_add($name, $network, $netmask);
    }
}

sub impl {
    my($self) = @_;
    return "XS";
}

1;