view release on metacpan or  search on metacpan

lib/App/Oozie/Deploy/Template/ttree.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
package App::Oozie::Deploy::Template::ttree;
 
use strict;
use warnings;
use parent qw( https://metacpan.org/pod/Template::App::ttree">Template::App::ttree );
 
our $VERSION = '0.020'; # VERSION
 
sub new {
    my($class, $log_collector, @pass_through) = @_;
    my $self  = $class->SUPER::new(
                    @pass_through,
                );
    $self->{log_collector} = $log_collector;
    return $self;
}
 
sub run {
    my($self, @args) = @_;
    local @ARGV = @args;
    return $self->SUPER::run();
}
 
sub emit_warn {
    my($self, $msg) = @_;
    return$self->{log_collector}->(
        level => 'warn',
        msg   => $msg,
    );
}