File Coverage

blib/lib/Log/Saftpresse/App.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	30	40.0

package Log::Saftpresse::App;

use Moose;

# ABSTRACT: commandline interface extension for Log::Saftpresse
our $VERSION = '1.6'; # VERSION

extends 'Log::Saftpresse';

use Getopt::Long;
use Log::Saftpresse::Log4perl;

sub print_usage {
	my $self = shift;
	print " usage: $0
		[--config|-c <file>]
		[--log-level|-l <level>]
		[--help|-h]
\n";
	exit 0;
}

has 'options' => (
	is => 'rw', isa => 'HashRef',
	default => sub {
		my $self = shift;
		my %opts;

		GetOptions(
			"help|h" => \$opts{'help'},
			"config|c=s"   => \$opts{'config'},
			"log-level|l=i"   => \$opts{'log_level'},
		) or $self->print_usage;

		if( $opts{'help'} ) {
			$self->print_usage;
		}

		return \%opts;
	},
);

sub init_with_options {
	my $self = shift;

	if( $self->options->{'config'} ) {
		$self->load_config( $self->options->{'config'} );
	}
	$self->init;
	if( defined $self->options->{'log_level'} ) {
		Log::Saftpresse::Log4perl->level( $self->options->{'log_level'} );
	}

	return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Log::Saftpresse::App - commandline interface extension for Log::Saftpresse

=head1 VERSION

version 1.6

=head1 AUTHOR

Markus Benning <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 1998 by James S. Seymour, 2015 by Markus Benning.

This is free software, licensed under:

  The GNU General Public License, Version 2, June 1991

=cut