File Coverage

blib/lib/DoitX/Example.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	3	33.3
total	22	24	91.6

# -*- perl -*-

#
# Author: Slaven Rezic
#
# Copyright (C) 2017,2018 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: [e-mail]
# WWW:  http://www.rezic.de/eserte/
#

package DoitX::Example;

use strict;
use warnings;
our $VERSION = '0.011';

use Doit::Log; # imports info, warning, error ...

# Provide a constructor just creating a blessed DoitX::Example
sub new { bless {}, shift }

# List all functions which should be available as Doit commands.
# Commands should have a distinct prefix (here: "example_"), to
# avoid clashes with other Doit component commands. As a convention,
# use the 2nd part of the module name, in lower case.
sub functions { qw(example_hello_world) }

# The definition of the command. Note that $self is really a
# Doit::Runner object, not a DoitX::Example object. This way
# it's possible to use Doit commands here.
sub example_hello_world {
    my($self, $arg) = @_;
    info "example_hello_world called with arg=$arg";
    $self->system($^X, '-e', q{print "hello, world\n"});
    42;
}

1;

__END__