File Coverage

blib/lib/Text/Scigen.pm

Criterion	Covered	Total	%
statement	39	41	95.1
branch	7	14	50.0
condition	1	2	50.0
subroutine	10	10	100.0
pod	2	2	100.0
total	59	69	85.5

package Text::Scigen;

use 5.008001;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Text::Scigen ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.02';

use Carp;
use Text::Autoformat;
use Text::Scigen::scigen;

our $DATA_PATH = $INC{'Text/Scigen.pm'};
$DATA_PATH =~ s/Scigen\.pm$//;
$DATA_PATH .= "Scigen";
our $REL_PATH;

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

sub new
{
	my( $class, %self ) = @_;

	my $self = bless \%self, $class;

	Carp::croak( "Missing filename argument" )
		if !defined $self{filename};

	$self{filename} = "$DATA_PATH/$self{filename}"
		if $self{filename} !~ /^\//;

	$self{rel_path} = $self{filename};
	$self{rel_path} =~ s/\/[^\/]+$//;

	$self{debug} ||= 0;

	$self{pretty} = 1 if !defined $self{pretty};

	if( open(my $fh, "<:utf8", $self{filename}) ) {
		Text::Scigen::scigen::read_rules (
			$fh,
			$self{dat} = {},
			\$self{RE},
			$self{debug},
			$self
		);
	}
	else {
		Carp::croak( "Error reading from $self{filename}: $!" );
	}

	return $self;
}

sub generate
{
	my( $self, $start ) = @_;

	$start = [$start] if ref($start) ne "ARRAY";

	return join "\n", map { Text::Scigen::scigen::generate (
		$self->{dat},
		$_,
		$self->{RE},
		$self->{debug},
		$self->{pretty}
	) } @$start;
}

sub _find
{
	my( $self, $filename ) = @_;

	return $filename if -e $filename;
	return "$self->{rel_path}/$filename" if -e "$self->{rel_path}/$filename";

	die "Can't find $filename\n";
}

1;
__END__