File Coverage

blib/lib/Net/MRT.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # Copyright (C) 2013 MaxiM Basunov
2             # All rights reserved.
3             #
4             # This program is free software; you may redistribute it and/or
5             # modify it under the same terms as Perl itself.
6              
7             # $Id$
8              
9             package Net::MRT;
10              
11 2     2   71586 use 5.010001;
  2         8  
  2         65  
12 2     2   9 use strict;
  2         3  
  2         59  
13 2     2   10 use warnings;
  2         7  
  2         331  
14              
15             require Exporter;
16              
17             our @ISA = qw(Exporter);
18              
19             # Items to export into callers namespace by default. Note: do not export
20             # names by default without a very good reason. Use EXPORT_OK instead.
21             # Do not simply export all your public functions/methods/constants.
22              
23             # This allows declaration use Net::MRT ':all';
24             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
25             # will save memory.
26             our %EXPORT_TAGS = ( 'all' => [ qw(
27             @BGP_ORIGIN
28             ) ] );
29              
30             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
31              
32             our @EXPORT = qw(
33              
34             );
35              
36             our $VERSION = '0.04';
37              
38             require XSLoader;
39             XSLoader::load('Net::MRT', $VERSION);
40              
41             # Helper arrays
42             our @BGP_ORIGIN = ('IGP', 'EGP', 'INCOMPLETE');
43              
44             # Preloaded methods go here.
45              
46             1;
47             __END__