File Coverage

blib/lib/DWH_File/Value/Undef.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch			n/a
condition	0	3	0.0
subroutine	4	9	44.4
pod	0	5	0.0
total	16	41	39.0

package DWH_File::Value::Undef;

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 ) = @_;
    my $class = ref $this || $this;
    my $none = '';
    my $self = \$none;
    bless $self, $class;
    return $self;
}

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

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

sub store_string { '%' }

sub actual_value { undef }

1;

__END__