File Coverage

blib/lib/Math/SymbolicX/Calculator/Command/Assignment.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch			n/a
condition	0	3	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	17	33	51.5

package Math::SymbolicX::Calculator::Command::Assignment;

use 5.006;
use strict;
use warnings;
use base 'Math::SymbolicX::Calculator::Command';

our $VERSION = '0.02';

sub new {
    my $proto = shift;
    my $class = ref($proto)||$proto;

    my %args = @_;
    my $self = bless {
        symbol => $args{symbol},
        object => $args{object},
    } => $class;

    return $self;
}

sub _execute {
    my $self = shift;
    my $c = shift;

    my $sym = $self->{symbol};
    my $func = $self->{object};

    $c->{stash}{$sym} = $func;

    return($sym, '==', $func);
}

1;

__END__