File Coverage

blib/lib/App/Automaton/Plugin/Source/File.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	38	45	84.4

package App::Automaton::Plugin::Source::File;

# ABSTRACT: File input module

use strict;
use warnings;
use Moo;

sub go {
    my $self = shift;
    my $in = shift;

	my $d = $in->{debug};

    my $file = $in->{path};
	_logger($d, "Processing file: $file");
    open(my $fh, "<", $in->{path}) || return 1;
    my @lines = <$fh>;
    close($fh);

	if ($in->{empty}) {
		_logger($d, "emptying the file: $file");
		open(my $fh, '>', $in->{path});
		print $fh '';
		close($fh);
	}

	if ($in->{delete}) {
		_logger($d, "deleting file: $file");
		unlink $file;
	}

    chomp(@lines);

    return(@lines);
}

sub _logger {
	my $level = shift;
	my $message = shift;
	print "$message\n" if $level;
	return 1;
}

1;

__END__