File Coverage

blib/lib/Text/Hoborg.pm

Criterion	Covered	Total	%
statement	31	37	83.7
branch	3	6	50.0
condition			n/a
subroutine	7	10	70.0
pod	5	5	100.0
total	46	58	79.3

package Text::Hoborg;

use warnings;
use strict;
use Carp;
use File::Slurp 'read_file';

use version; our $VERSION = qv('0.0.6'); #(Hopefully) first
                                         #non-test-failing version

our @appendices = qw(characters.md geography.md); #auxiliary and additional files

# Module implementation here
sub new {
  my $class = shift;
  my $dir = shift;
  if ( ! $dir ) {
      $dir = -d "../text" ? "../text": "../../text";
      $dir = -d $dir ? $dir : "t";
  }
  my $text_file = "$dir/text.md";
  my $text = read_file($text_file);
  my $self = {
      _dir => $dir,
      _text => $text,
      _text_file => $text_file,
      _appendices => {}
  };
  for my $a (@appendices ) {
      $text_file = "$dir/$a";
      $text = read_file($text_file);
      $self->{'_appendices'}{$a} = $text;
  }
  bless  $self, $class;
  return $self;
}

sub dir {
    my $self = shift;
    return $self->{'_dir'};
}

sub text {
  my $self = shift;
  return $self->{'_text'};
}

sub text_file {
  my $self = shift;
  return $self->{'_text_file'};
}

sub appendices {
    my $self = shift;
    return $self->{'_appendices'};
}


"All over, all out, all over and out"; # Magic circus phrase said at the end of the show

__END__