File Coverage

blib/lib/App/PYX/Optimization.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	2	2	100.0
total	22	48	45.8

package App::PYX::Optimization;

use strict;
use warnings;

use Getopt::Std;
use PYX::Optimization

our $VERSION = 0.01;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Object.
	return $self;
}

# Run script.
sub run {
	my $self = shift;

	# Process arguments.
	$self->{'_opts'} = {
		'h' => 0,
	};
	if (! getopts('h', $self->{'_opts'}) || $self->{'_opts'}->{'h'}
		|| @ARGV < 1) {

		print STDERR "Usage: $0 [-h] [--version] [filename] [-]\n";
		print STDERR "\t-h\t\tPrint help.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tfilename\tProcess on filename\n";
		print STDERR "\t-\t\tProcess on stdin\n";
		return 1;
	}
	$self->{'_filename_or_stdin'} = $ARGV[0];

	# PYX::Optimization object.
	my $optimizer = PYX::Optimization->new;

	# Parse from stdin.
	if ($self->{'_filename_or_stdin'} eq '-') {
		$optimizer->parse_handler(\*STDIN);

	# Parse file.
	} else {
		$optimizer->parse_file($self->{'_filename_or_stdin'});
	}

	return 1;
}

1;

__END__