File Coverage

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


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   39 use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS);
  12         14  
  12         2213  
9              
10             $VERSION = 1.01;
11              
12             my @afs = qw(
13             );
14             my @pfs = qw(
15             );
16             my @ifs = qw(
17             IFF_NOARP
18             IFF_MULTICAST
19             IFF_SLAVE
20             IFF_NOTRAILERS
21             IFF_LOOPBACK
22             IFNAMSIZ
23             IFF_UP
24             IFF_DEBUG
25             IF_NAMESIZE
26             IFF_BROADCAST
27             IFF_AUTOMEDIA
28             IFF_ALLMULTI
29             IFF_POINTOPOINT
30             IFF_MASTER
31             IFF_DYNAMIC
32             IFF_RUNNING
33             IFF_PROMISC
34             IFHWADDRLEN
35             IFF_PORTSEL
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             6 => 'IFHWADDRLEN',
59             16 => 'IF_NAMESIZE',
60             );
61              
62             my @iftype = qw(
63             IPV6_ADDR_ANY
64             IPV6_ADDR_UNICAST
65             IPV6_ADDR_MULTICAST
66             IPV6_ADDR_ANYCAST
67             IPV6_ADDR_LOOPBACK
68             IPV6_ADDR_LINKLOCAL
69             IPV6_ADDR_SITELOCAL
70             IPV6_ADDR_COMPATv4
71             IPV6_ADDR_SCOPE_MASK
72             IPV6_ADDR_MAPPED
73             IPV6_ADDR_RESERVED
74             IPV6_ADDR_ULUA
75             IPV6_ADDR_6TO4
76             IPV6_ADDR_6BONE
77             IPV6_ADDR_AGU
78             IPV6_ADDR_UNSPECIFIED
79             IPV6_ADDR_SOLICITED_NODE
80             IPV6_ADDR_ISATAP
81             IPV6_ADDR_PRODUCTIVE
82             IPV6_ADDR_6TO4_MICROSOFT
83             IPV6_ADDR_TEREDO
84             IPV6_ADDR_ORCHID
85             IPV6_ADDR_NON_ROUTE_DOC
86             );
87              
88             my @scope = qw(
89             RFC2373_GLOBAL
90             RFC2373_ORGLOCAL
91             RFC2373_SITELOCAL
92             RFC2373_LINKLOCAL
93             RFC2373_NODELOCAL
94             LINUX_COMPATv4
95             );
96              
97             @EXPORT_OK = (@afs,@pfs,@ifs,@iftype,@scope);
98             %EXPORT_TAGS = (
99             all => [@afs,@pfs,@ifs,@iftype,@scope],
100             afs => [@afs],
101             pfs => [@pfs],
102             ifs => [@ifs],
103             iffs => [@iffs],
104             iffIN6 => [@iffIN6],
105             iftype => [@iftype],
106             scope => [@scope],
107             );
108              
109 1     1 1 4449 sub NI_ENDVAL {return 2147483647};
110 1     1 1 270 sub NI_UNIQUE {return \%unique};
111       0     sub DESTROY {};
112              
113             1;
114             __END__