File Coverage

blib/lib/Text/Mining/Algorithm/Base.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Text::Mining::Algorithm::Base;
use base qw(Text::Mining::Base);
use Class::Std;
use Class::Std::Utils;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.8');

{
	my %attribute_of : ATTR( get => 'attribute', set => 'attribute' );

	sub version { return "Text::Mining::Algorithm::Base Version $VERSION"; }

	sub BUILD {
		my ($self, $ident, $arg_ref) = @_;

		return;
	}

	sub _by_text() {
		my ($self, $arg_ref) = @_;
		my $text = $arg_ref->{text};
		my @count = split(/\s+/, $text);
		print "algorithm->_by_text(): Found ", scalar(@count), " tokens.\n";

		return;
	}

	sub _by_section() {
		my ($self, $arg_ref) = @_;
		my $section = $arg_ref->{section};
		my @count = split(/\s+/, $section);
		print "algorithm->_by_section(): Found ", scalar(@count), " tokens.\n";

		return;
	}

	sub _by_paragraph() {
		my ($self, $arg_ref) = @_;
		my $paragraph = $arg_ref->{paragraph};
		my @count = split(/\s+/, $paragraph);
		print "algorithm->_by_paragraph(): Found ", scalar(@count), " tokens.\n";

		return;
	}

	sub _by_line() {
		my ($self, $arg_ref) = @_;
		my $line = $arg_ref->{line};
		my @count = split(/\s+/, $line);
		print "algorithm->_by_line(): Found ", scalar(@count), " tokens.\n";

		return;
	}
}

1; # Magic true value required at end of module
__END__