File Coverage

blib/lib/App/SimpleScan/Substitution/Line.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	10	12	83.3
condition			n/a
subroutine	11	11	100.0
pod	5	5	100.0
total	64	66	96.9

package App::SimpleScan::Substitution::Line;
use strict;
use warnings;
use Carp;

our $VERSION = '1.00';

use base qw(Class::Accessor::Fast Clone);
__PACKAGE__->mk_accessors( qw(line) );

use overload
  '""' => sub { $_[0]->line };

sub new {
  my ($class, $line) = @_;
  my $self = {};
  bless $self, $class;

  croak "No line supplied" unless defined $line;

  $self->line($line);
  $self->no_fixed;

  return $self;
}

sub no_fixed {
  my($self) = @_;
  $self->{fixed} = {};
}

sub fix {
  my ($self, $var, $value) = @_;
  croak "No variable supplied" unless defined $var;
  croak "No value supplied" unless defined $value;

  $self->{fixed}->{$var} = $value;
}

sub unfix {
  my ($self, $var) = @_;
  croak "No variable supplied" unless defined $var;
  croak "Variable $var is not fixed" unless exists $self->{fixed}->{$var};
  delete $self->{fixed}->{$var};
}

sub fixed {
  my ($self, $var) = @_;
  if (defined $var) {
    return $self->{fixed}->{$var};
  }
  else {
    return %{ $self->{fixed} };
  }
}

1;

__END__