File Coverage

blib/lib/Net/Interface/NetSymbols.pm
Criterion Covered Total %
statement 5 6 83.3
branch n/a
condition n/a
subroutine 3 4 75.0
pod 2 2 100.0
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2             #
3             # DO NOT ALTER THIS FILE
4             # IT IS WRITTEN BY Makefile.PL and inst/netsymbols.pl
5             # EDIT THOSE INSTEAD
6             #
7             package Net::Interface::NetSymbols;
8 12     12   108 use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS);
  12         24  
  12         5342  
9              
10             $VERSION = 1.01;
11              
12             my @afs = qw(
13             );
14             my @pfs = qw(
15             );
16             my @ifs = qw(
17             IFF_BROADCAST
18             IF_NAMESIZE
19             IFF_DEBUG
20             IFF_PORTSEL
21             IFF_AUTOMEDIA
22             IFF_MULTICAST
23             IFF_PROMISC
24             IFF_UP
25             IFF_ALLMULTI
26             IFF_SLAVE
27             IFF_POINTOPOINT
28             IFF_DYNAMIC
29             IFF_NOARP
30             IFF_LOOPBACK
31             IFF_MASTER
32             IFF_RUNNING
33             IFNAMSIZ
34             IFF_NOTRAILERS
35             IFHWADDRLEN
36             );
37             my @iffs = qw(
38             IFF_ALLMULTI
39             IFF_AUTOMEDIA
40             IFF_BROADCAST
41             IFF_DEBUG
42             IFF_DYNAMIC
43             IFF_LOOPBACK
44             IFF_MASTER
45             IFF_MULTICAST
46             IFF_NOARP
47             IFF_NOTRAILERS
48             IFF_POINTOPOINT
49             IFF_PORTSEL
50             IFF_PROMISC
51             IFF_RUNNING
52             IFF_SLAVE
53             IFF_UP
54             );
55             my @iffIN6 = qw(
56             );
57             my %unique = (
58             );
59              
60             my @iftype = qw(
61             IPV6_ADDR_ANY
62             IPV6_ADDR_UNICAST
63             IPV6_ADDR_MULTICAST
64             IPV6_ADDR_ANYCAST
65             IPV6_ADDR_LOOPBACK
66             IPV6_ADDR_LINKLOCAL
67             IPV6_ADDR_SITELOCAL
68             IPV6_ADDR_COMPATv4
69             IPV6_ADDR_SCOPE_MASK
70             IPV6_ADDR_MAPPED
71             IPV6_ADDR_RESERVED
72             IPV6_ADDR_ULUA
73             IPV6_ADDR_6TO4
74             IPV6_ADDR_6BONE
75             IPV6_ADDR_AGU
76             IPV6_ADDR_UNSPECIFIED
77             IPV6_ADDR_SOLICITED_NODE
78             IPV6_ADDR_ISATAP
79             IPV6_ADDR_PRODUCTIVE
80             IPV6_ADDR_6TO4_MICROSOFT
81             IPV6_ADDR_TEREDO
82             IPV6_ADDR_ORCHID
83             IPV6_ADDR_NON_ROUTE_DOC
84             );
85              
86             my @scope = qw(
87             RFC2373_GLOBAL
88             RFC2373_ORGLOCAL
89             RFC2373_SITELOCAL
90             RFC2373_LINKLOCAL
91             RFC2373_NODELOCAL
92             LINUX_COMPATv4
93             );
94              
95             @EXPORT_OK = (@afs,@pfs,@ifs,@iftype,@scope);
96             %EXPORT_TAGS = (
97             all => [@afs,@pfs,@ifs,@iftype,@scope],
98             afs => [@afs],
99             pfs => [@pfs],
100             ifs => [@ifs],
101             iffs => [@iffs],
102             iffIN6 => [@iffIN6],
103             iftype => [@iftype],
104             scope => [@scope],
105             );
106              
107 1     1 1 6851 sub NI_ENDVAL {return 2147483647};
108 1     1 1 357 sub NI_UNIQUE {return \%unique};
109 0     0     sub DESTROY {};
110              
111             1;
112             __END__