File Coverage

blib/lib/Variable/Strongly/Typed/Scalar.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	24	32	75.0

package Variable::Strongly::Typed::Scalar;

use version; $VERSION = qv('1.0.0');

use warnings;
use strict;
use Carp;

use base qw(Variable::Strongly::Typed);

{
    sub TIESCALAR {
        my($class, $type) = @_;

        my $self = bless \my($anon_scalar), $class;
        $self->_init(\my($another_anon_scalar), $type);
    }

    sub FETCH {
        my $obj = shift->_get_object;
        return $$obj;
    }

    # If it's legit keep it
    sub STORE {
        my ($self, $value) = @_;
        my $obj = $self->_get_object;

        $self->_check_values($value);
        $$obj = $value;
    }

  }

1;

__END__