File Coverage

lib/UR/Value/FilesystemPath.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 5 0.0
total 18 23 78.2


line stmt bran cond sub pod time code
1             package UR::Value::FilesystemPath;
2              
3 1     1   105 use strict;
  1         1  
  1         27  
4 1     1   3 use warnings;
  1         1  
  1         133  
5             require UR;
6             our $VERSION = "0.46"; # UR $VERSION;
7              
8             UR::Object::Type->define(
9             class_name => 'UR::Value::FilesystemPath',
10             is => 'UR::Value::Text',
11             );
12              
13             sub exists {
14 3     3 0 1050 return -e shift;
15             }
16              
17             sub is_dir {
18 3     3 0 10 return -d shift;
19             }
20              
21             sub is_file {
22 3     3 0 11 return -f shift;
23             }
24              
25             sub is_symlink {
26 3     3 0 12 return -l shift;
27             }
28              
29             sub size {
30 2     2 0 35 return -s shift;
31             }
32              
33             1;