view release on metacpan or  search on metacpan

lib/App/SimulateReads/CLI/App.pm  view on Meta::CPAN

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
has 'app_path' => (
        is      => 'ro',
        isa     => 'Str',
        builder => '_build_app_path'
);
 
sub _build_app_path {
        # Determine dynamic the app path that inherit from this class
        # If no one is inheriting, return this class path
        my $class = (caller(1))[3];
        $class =~ s/::new//;
        my $command_pm = file(split /::/ => "$class.pm");
        return $INC{$command_pm};
}
 
override 'opt_spec' => sub {
        super,
        'version|v'
};