File Coverage

blib/lib/DWH_File/Value/Plain.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	2	4	50.0
condition	2	6	33.3
subroutine	9	9	100.0
pod	0	5	0.0
total	42	54	77.7

package DWH_File::Value::Plain;

use warnings;
use strict;
use vars qw( @ISA $VERSION );
use overload
    '""' => \&store_string,
    fallback => 1;

@ISA = qw( DWH_File::Value );
$VERSION = 0.01;

sub new {
    my ( $this, $data ) = @_;
    my $class = ref $this || $this;
    my $self = \$data;
    bless $self, $class;
    return $self;
}

sub from_input {
    my ( $this, $data ) = @_;
    my $first = substr $data, 0, 1;
    if ( $first eq '^' or $first eq '%' ) { substr( $data, 0, 0 ) = '%' }
    return $this->new( $data );
}

sub from_stored {
    my ( $this, $data ) = @_;
    return $this->new( $data );
}

sub store_string { ${ $_[ 0 ] } }

sub actual_value {
    my $data = ${ $_[ 0 ] };
    '%' eq substr $data, 0, 1 and substr( $data, 0, 1 ) = '';
    $data;
}

1;

__END__