File Coverage

blib/lib/Lab/Moose/Catfile.pm
Criterion Covered Total %
statement 8 9 88.8
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 15 80.0


line stmt bran cond sub pod time code
1             package Lab::Moose::Catfile;
2             $Lab::Moose::Catfile::VERSION = '3.880';
3 27     27   867244 use warnings;
  27         81  
  27         1079  
4 27     27   169 use strict;
  27         76  
  27         3334  
5              
6             # ABSTRACT: Export custom catfile which avoids backslashes
7              
8             # PDL::Graphics::Gnuplot <= 2.011 cannot handle backslashes on windows.
9              
10              
11             our @ISA = qw(Exporter);
12             our @EXPORT = qw/our_catfile/;
13              
14             sub our_catfile {
15 380 50   380 0 45708 if ( @_ == 0 ) {
16 0         0 return;
17             }
18 380         1732 return join( '/', @_ );
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Lab::Moose::Catfile - Export custom catfile which avoids backslashes
32              
33             =head1 VERSION
34              
35             version 3.880
36              
37             =head1 SYNOPSIS
38              
39             use Lab::Moose::Catfile;
40             my $dir = our_catfile($dir1, $dir2, $basename);
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             This software is copyright (c) 2023 by the Lab::Measurement team; in detail:
45              
46             Copyright 2018 Simon Reinhardt
47              
48              
49             This is free software; you can redistribute it and/or modify it under
50             the same terms as the Perl 5 programming language system itself.
51              
52             =cut