File Coverage

blib/lib/Data/ParseBinary/Data/Cap.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	30	34	88.2

package Data::ParseBinary::Data::Cap;
use strict;
use warnings;
use Data::ParseBinary;
use Data::ParseBinary qw{OptionalGreedyRange};
#"""
#tcpdump capture file
#"""


my $packet = Struct("packet",
    Data::ParseBinary::lib::DataCap::MicrosecAdapter->create(
        Sequence("time",
            ULInt32("time"),
            ULInt32("usec"),
        )
    ),
    ULInt32("length"),
    Padding(4),
    Field("data", sub { $_->ctx->{length} }),
);

our $data_cap_parser = Struct("cap_file",
    Padding(24),
    OptionalGreedyRange($packet),
);

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($data_cap_parser);

package Data::ParseBinary::lib::DataCap::MicrosecAdapter;
our @ISA;
BEGIN { @ISA = qw{Data::ParseBinary::Adapter}; }

sub _decode {
    my ($self, $value) = @_;
    return sprintf("%d.%06d", @$value)
}

sub _encode {
    my ($self, $tvalue) = @_;
    if ( index($tvalue, ".") >= 0 ) {
        my ($sec, $usec) = $tvalue =~ /^(\d+)\.(\d*)$/;
        if (length($usec) > 6) {
            $usec = substr($usec, 0, 6);
        } else {
            $usec .= "0" x (6 - length($usec));
        }
        return [$sec, $usec];
    } else {
        return [$tvalue, 0];
    }
}
    #def _decode(self, obj, context):
    #    return datetime.fromtimestamp(obj[0] + (obj[1] / 1000000.0))
    #def _encode(self, obj, context):
    #    offset = time.mktime(*obj.timetuple())
    #    sec = int(offset)
    #    usec = (offset - sec) * 1000000
    #    return (sec, usec)


1;

__END__