File: Example_01.pm

package info (click to toggle)
libfile-sharedir-projectdistdir-perl 1.000004-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 400 kB
  • ctags: 22
  • sloc: perl: 442; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 216 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use strict;
use warnings;

package Example_01;

use File::ShareDir::ProjectDistDir ':all', strict => 1;

use Path::Tiny qw(path);

sub test {
  return scalar path( dist_file( 'Example_01', 'file' ) )->slurp();
}

1;