File Coverage

blib/lib/Business/UDC.pm

Criterion	Covered	Total	%
statement	35	40	87.5
branch	3	4	75.0
condition			n/a
subroutine	9	11	81.8
pod	6	6	100.0
total	53	61	86.8

package Business::UDC;

use strict;
use warnings;

use Business::UDC::Parser qw(parse);
use English;
use Error::Pure::Utils qw(err_get);

our $VERSION = 0.06;

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

	# Create object.
	my $self = bless {
		'source' => $source,
		'_ast' => undef,
		'_error' => [],
		'_tokens' => [],
		'_valid' => 0,
	}, $class;

	my $res_hr = eval {
		parse($self->{'source'});
	};
	if ($EVAL_ERROR) {
		chomp $EVAL_ERROR;
		my ($error_hr) = err_get(1);
		my @err = @{$error_hr->{'msg'}};
		$self->{'_error'} = \@err;
	} else {
		$self->{'_ast'} = $res_hr->{'ast'};
		$self->{'_tokens'} = $res_hr->{'tokens'};
		$self->{'_valid'} = 1;
	}

	return $self;
}

sub ast {
	my $self = shift;

	return $self->{'_ast'};
}

sub error {
	my $self = shift;

	return wantarray ? @{$self->{'_error'}} : $self->{'_error'}->[0];
}

sub is_valid {
	my $self = shift;

	return $self->{'_valid'};
}

sub source {
	my $self = shift;

	return $self->{'source'};
}

sub tokens {
	my $self = shift;

	return $self->{'_tokens'};
}

1;

__END__