File Coverage

examples/moodulino.pl

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	2	0.0
total	33	40	82.5

#!/usr/bin/perl

package My::Moodulino;

use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Indent = 1;

use Moo;
with 'MooX::Role::CliOptions';

use MooX::StrictConstructor;

my $cli = 0;

has custom_opt => ( is => 'ro', );

has internal_attr => (
    is       => 'rw',
    init_arg => undef,
);

has cli => (
    is       => 'lazy',
    init_arg => undef,
    default  => sub { return $cli; },
);

# all attributes and package variable MUST be declared before this!
do {
    print "caller-stack is empty\n";

    # set this so test scripts can see it in the attribute
    $cli = 1;

    my $app = __PACKAGE__->init(
        argv     => \@ARGV,
        add_opts => ['custom_opt=s'],
    );

    exit $app->run;
} unless caller();

# executable code like this should not be used in actual scripts, this
# is only here to provide data for the tests.
print "command line flag not set\n" if !$cli;
print "exit was not called\n";

# BUILD will be called like normal if present as part of 'init', shown
# here for illustration purposes only.
sub BUILD {
    my $self = shift;

    # this will trigger the lazy default
    print "running from command line\n" if $self->cli && $self->verbose;

    return;
}

sub run {
    my $self = shift;

    printf( "custom_opt: %s\n", $self->custom_opt ) if $self->custom_opt;

    print Dumper($self) if $self->debug;

    return 0;
}

1;
__END__