File Coverage

blib/lib/Soar/Production.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	49	53	92.4

#
# This file is part of Soar-Production
#
# This software is copyright (c) 2012 by Nathan Glenn.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Soar::Production;
# ABSTRACT: REPRESENT SOAR PRODUCTIONS
use strict;
use warnings;

use Carp;
use Soar::Production::Parser;
use Data::Dumper;
use Exporter::Easy (
	OK => [qw(prods_from prods_from_file)]
);

our $VERSION = '0.03'; # VERSION



my $parser = Soar::Production::Parser->new;

#if run as a script, prints the name of every production in an input file.
unless(caller){
	my $prods = prods_from_file( $ARGV[0] );
	for my $prod (@$prods){
		print $prod->name . "\n";
	}
}


sub new {
  my ($class, $text) = @_;
  my $prod = bless $parser->parse_text($text), $class;
  return $prod;
}

# sub as_text {
# 	my ($class) = @_;
# 	# return tree_to_text($class)
# }


sub name {
	my ($prod, $name) = @_;
	# print Dumper $prod;
	$prod->{name} = $name
		if($name);
	return $prod->{name};
}


sub prods_from_file{
	my ($file) = @_;
	return prods_from( file => $file );
}


sub prods_from {## no critic (RequireArgUnpacking)
	my (%args) = @_;
	$args{text} or $args{file}
		or croak 'Must specify parameter \'file\' or \'text\' to extract productions.';

	my $parses = $parser->productions(@_, parse => 1);
	my @prods = map { bless $_ } @$parses; ## no critic(ProhibitOneArgBless)

	return \@prods;
}

1;

__END__