File Coverage

blib/lib/Text/Annotated/Line.pm

Criterion	Covered	Total	%
statement	22	33	66.6
branch			n/a
condition	1	3	33.3
subroutine	6	9	66.6
pod	3	4	75.0
total	32	49	65.3

package Text::Annotated::Line;
# $Id: Line.pm,v 1.6 2007-05-12 18:39:16 wim Exp $
use strict;
use vars qw($VERSION);
use fields qw(filename linenr content);
use overload (
    "\"\"" => \&stringify
);
$VERSION = '0.04';

sub new {
    my $proto = shift;
    my $pkg = ref($proto) || $proto;

    # build the object
    no strict 'refs';
    my $this = bless [\%{"${pkg}::FIELDS"}], $pkg;

    # initialize any specified fields
    my %arg = @_;
    while(my($k,$v) = each %arg) {
	$this->{$k} = $v;
    }

    return $this;
}

sub clone { # returns a deep copy
    my $this = shift;
    return $this->new(
	 filename => $this->{filename},
         linenr   => $this->{linenr},
         content  => $this->{content},
    );
}

sub stringify {
    my Text::Annotated::Line $this = shift;
    $this->{content};
}

sub stringify_annotated {
    my Text::Annotated::Line $this = shift;
    my $file    = $this->{filename};
    my $linenr  = sprintf('%05d',$this->{linenr});
    my $content = $this->{content};
    chomp $content;
    return "[$file\#$linenr]$content";
}

1;

__END__