File Coverage

blib/lib/CljPerl/Var.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	29	27.5

package CljPerl::Var;

  use strict;
  use warnings;

  our $VERSION = '0.10';

  sub new {
    my $class = shift;
    my $name = shift;
    my $value = shift;
    my $self = {class=>$class,
                name=>$name,
	        value=>$value};
    bless $self;
    return $self;
  }

  sub name {
    my $self = shift;
    return $self->{name};
  }

  sub value {
    my $self = shift;
    my $value = shift;
    if(defined $value){
      $self->{value} = $value;
    } else {
      return $self->{value};
    }
  }

1;