File Coverage

blib/lib/FLAT/Symbol.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	4	6	66.6
condition			n/a
subroutine	5	7	71.4
pod	0	3	0.0
total	26	36	72.2

package FLAT::Symbol;

use strict;
use Carp;

sub new {
    my ( $pkg, $label ) = @_;
    bless {
        LABEL  => $label,    #serialized representation
        OBJECT => $label,    #as object
        COUNT  => 1,
    }, $pkg;
}

sub _increment_count {
    my $self = shift;
    my $add  = $_[0] ? shift : 1;
    $self->{COUNT} += $add;
    return $self->{COUNT};
}

sub _decrement_count {
    my $self = shift;
    my $sub  = $_[0] ? shift : 1;
    $self->{COUNT} -= $sub;
    croak "Count less than 0!\n" if ( 0 > $self->{COUNT} );
    return $self->{COUNT};
}

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

sub as_string {
    return $_[0]->{LABEL};
}

1;