File Coverage

blib/lib/File/Spec/Native.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             # vim: set ts=2 sts=2 sw=2 expandtab smarttab:
2             #
3             # This file is part of File-Spec-Native
4             #
5             # This software is copyright (c) 2011 by Randy Stauner.
6             #
7             # This is free software; you can redistribute it and/or modify it under
8             # the same terms as the Perl 5 programming language system itself.
9             #
10 2     2   89420 use strict;
  2         6  
  2         113  
11 2     2   13 use warnings;
  2         4  
  2         98  
12              
13             package File::Spec::Native;
14             BEGIN {
15 2     2   56 $File::Spec::Native::VERSION = '1.003';
16             }
17             BEGIN {
18 2     2   40 $File::Spec::Native::AUTHORITY = 'cpan:RWSTAUNER';
19             }
20             # ABSTRACT: Use native OS implementation of File::Spec from a subclass
21              
22 2     2   11 use File::Spec (); #core
  2         4  
  2         95  
23             our @ISA = qw(File::Spec);
24              
25             # TODO: import? -as => NATIVE
26              
27             1;
28              
29              
30             __END__