File Coverage

blib/lib/Net/Packet.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #
2             # $Id: Packet.pm,v 1.2.2.7 2006/10/04 21:18:37 gomor Exp $
3             #
4             package Net::Packet;
5 28     28   139393 use strict;
  28         72  
  28         857  
6 28     28   150 use warnings;
  28         61  
  28         1943  
7              
8             require v5.6.1;
9              
10             our $VERSION = '3.00_02';
11              
12             require Exporter;
13             our @ISA = qw(Exporter);
14              
15 28     28   9824 use Net::Packet::Env qw($Env);
  0            
  0            
16             use Net::Packet::Utils qw(:all);
17             use Net::Packet::Consts qw(:desc :dump :layer :eth :arp :vlan :null :ipv4
18             :ipv6 :tcp :udp :icmpv4);
19              
20             require Net::Packet::Dump;
21              
22             require Net::Packet::DescL2;
23             require Net::Packet::DescL3;
24             require Net::Packet::DescL4;
25              
26             require Net::Packet::Frame;
27             require Net::Packet::ETH;
28             require Net::Packet::IPv4;
29             require Net::Packet::IPv6;
30             require Net::Packet::VLAN;
31             require Net::Packet::ARP;
32             require Net::Packet::TCP;
33             require Net::Packet::UDP;
34             require Net::Packet::ICMPv4;
35             require Net::Packet::NULL;
36             require Net::Packet::RAW;
37             require Net::Packet::SLL;
38              
39             our @EXPORT = (
40             @Net::Packet::Env::EXPORT_OK,
41             @Net::Packet::Utils::EXPORT_OK,
42             @Net::Packet::Consts::EXPORT_OK,
43             );
44              
45             END {
46             if ($Env->dump) {
47             $Env->dump->stop if $Env->dump->isRunning;
48             $Env->dump->clean;
49             }
50             1;
51             }
52              
53             1;
54              
55             __END__