File Coverage

blib/lib/Data/Classifier/Result.pm

Criterion	Covered	Total	%
statement	23	34	67.6
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	6	7	85.7
total	36	50	72.0

package Data::Classifier::Result;

our $VERSION = '0.01';

use strict;
use warnings;

#private interface
sub new {
	my ($class, $stack) = @_;
	my $self = {};

	bless($self, $class);

	$self->{STACK} = $stack;

	$self->init;

	return $self;
}

#this method is intended to be overloaded by subclasses to further customize
#the behavior of the classification, such as insctructions to execute at class
#boundries
sub init {
	return;
}

#public interface

#returns the most specific class node that matched or undef if no
#classification was possible
sub class {
	my ($self) = @_;
	my @stack = $self->stack;
	my $last = $#stack;

	return $stack[$last];
}

sub stack {
	my ($self) = @_;

	return @{$self->{STACK}};
}

sub fqn {
	my ($self) = @_;
	my $classes = $self->{STACK};
	my @tmp;

	foreach my $class (@$classes) {
		push(@tmp, $class->{name});
	}

	return join('::', @tmp);
}

#returns the most specific class name
sub name {
	my ($self) = @_;
	my $class = $self->class;

	return $class->{name};
}

#return a list of data attributes
sub attributes {
	my ($self, $attribute) = @_;
	my @ret;

	foreach ($self->stack) {
		push(@ret, $_->{$attribute});
	}

	return @ret;
}

1;

__END__