File Coverage

lib/Zen/Koan.pm

Criterion	Covered	Total	%
statement	42	46	91.3
branch	11	12	91.6
condition	6	7	85.7
subroutine	9	9	100.0
pod	4	5	80.0
total	72	79	91.1

package Zen::Koan;
use strict;
use warnings;
use Carp qw/croak/;

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my %opts;
    if (@_ == 1 and ref($_[0]) eq 'HASH') {
        %opts = %{ $_[0] };
    }
    else { %opts = @_ }
    $opts{title} ||= 'A koan by no other name';
    $opts{body}  ||= 'This koan offers little wisdom.  It just is.';

    my $self = { title => $opts{title},
                 body  => $opts{body},
                 indent_level => 0,
                 current_indent => 0,
               };

    bless $self, $class;
    return $self;
}

sub title { $_[0]->{title} }
sub body  { $_[0]->{body} }

sub as_html {
    my $self = shift;
    my $body = '';
    for my $p (split "\n", $self->{body}) {
        next if $p =~ /^\s*$/;
        chomp $p;
        if ($p =~ s/^(\s+)//) {
            my $indent = length $1;
            if ($indent > $self->{current_indent}) {
                $self->{indent_level}++;
                $body .= "\n";
            }
            elsif ($indent < $self->{current_indent}) {
                $self->{indent_level}--;
                $body .= "\n";
            }
            $self->{current_indent} = $indent;
        }
        elsif ($self->{indent_level}) {
            while ($self->{indent_level}) {
                $self->{indent_level}--;
                $body .= "\n";
            }
        }
        $body .= "$p\n";
    }
    while ($self->{indent_level}) {
        $self->{indent_level}--;
        $body .= "\n";
    }
    return <
$self->{title}

$body
EOT
}

sub as_text {
    my $self = shift;
    return "\t$self->{title}\n\n$self->{body}";
}

sub AUTOLOAD {
    return <
You are expecting too much from this koan.

Look within for more answers.
EOT
}

1;

__END__