File Coverage

blib/lib/Language/P/Toy/Value/Scalar.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	4	50.0
condition			n/a
subroutine	7	8	87.5
pod	0	5	0.0
total	29	38	76.3

package Language::P::Toy::Value::Scalar;

use strict;
use warnings;
use base qw(Language::P::Toy::Value::Any);

sub type { 5 }

sub as_scalar { return $_[0] }

sub assign {
    my( $self, $other ) = @_;

    Carp::confess if ref( $other ) eq __PACKAGE__;

    # FIXME proper morphing
    %$self = ();
    bless $self, ref( $other );

    $self->assign( $other );
}

sub assign_iterator {
    my( $self, $iter ) = @_;

    die unless $iter->next; # FIXME, must assign undef
    $self->assign( $iter->item );
}

sub localize {
    my( $self ) = @_;

    return Language::P::Toy::Value::StringNumber->new;
}

1;