File Coverage

blib/lib/Text/Label/Prepender.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	33	35	94.2

package Text::Label::Prepender;

use 5.006;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Text::Label::Prepender ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '1.0';


# Preloaded methods go here.

#
# the object constructor (simplistic version)
#

my $LABEL        = 0;
my $SEP          = 1;
my $LABEL_CHAR   = 2;
my $LABEL_RE     = 3;

sub new {

    my $pkg = shift;
    my %args = @_;
    my $self  = [];
    my $default = { initial_label => '', separator => '', label_char => ':' };

    $self->[$LABEL]      = $args{initial_label};
    $self->[$SEP]        = $args{separator};
    $self->[$LABEL_CHAR] = $args{label_char};

    my $tmp = $self->[$LABEL_CHAR];

    $self->[$LABEL_RE] = qr/(.*)$tmp\s*$/;

    warn $self->[$LABEL_RE];

    bless($self);           # but see below (says perldoc perltoot)
    return $self;
}

sub process {

    my ($self,$line) = @_;

    if ($line =~ /$self->[$LABEL_RE]/) {

	$self->[$LABEL] = $1;

	return undef;

    } else {

	my @O =

	return join $self->[$SEP], ($self->[$LABEL], $line);

    }
}


1;
__END__