File Coverage

blib/lib/Hints/Base.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	48	49	97.9

package Hints::Base;

use strict;
use Hints;
use IO::Handle;
use vars qw/$VERSION @ISA/;

$VERSION = '0.02';
@ISA = qw/Hints/;

=head1 NAME

Hints::Base - Perl extension for hints program storage databases

=head1 SYNOPSIS

	use Hints::Base;

	my $hints = new Hints::Base 'program';

	print $hints->random();

=head1 DESCRIPTION

Specialized version of Hints(3) extension. This variant can be used for
internal program storage database of hints. Descendant contents databases,
this module implement loading of databases from internal data storage.

=head1 THE HINTS::BASE CLASS

=head2 init

Loading data storage between __DATA__ and __END__ or EOF tags. Using
default separator.

=cut

sub init {
	my $obj = shift;
	my $next = shift;
	if ($next) {
		my $nextname = "Hints::Base::$next";
		eval "package Hints::Base::_safe; require $nextname;";
		unless ($@) {	# database
			$nextname->import();
			return $nextname->new(@_);
		}
	}
	my @data = ();
	my $sourcepkg = ref $obj;
	no strict 'refs';
	my $fh = \*{"${sourcepkg}::DATA"};
	use strict 'refs';
	while (<$fh>) {
		last if /^__END__$/;
		push @data,$_;
	}
	$obj->load_from_file(\@data);
	$obj;
}

1;

__DATA__