File Coverage

blib/lib/Games/RolePlay/MapGen/MapQueue/Object.pm

Criterion	Covered	Total	%
statement	52	53	98.1
branch	17	20	85.0
condition	1	3	33.3
subroutine	13	14	92.8
pod	0	11	0.0
total	83	101	82.1

# vi:filetype=perl:

package Games::RolePlay::MapGen::MapQueue::Object;

use common::sense;
use overload fallback => 1, bool => sub{1}, '0+' => \&n, '""' => \&q, "-=" => \&me, "+=" => \&pe;

sub new { my $class = shift; my $val = shift; bless {q=>1, u=>1, v=>$val}, $class }

sub desc {
    my $this = shift;

    my $r = $this->{v};
       $r .= " ($this->{q})" if $this->{q} != 1;
       $r .= " #$this->{c}"  unless $this->{u};

    return $r;
}

sub attr {
    my $this = shift;
    my $name = shift;
    my $that = shift;

    return undef unless $name;

    $this->{a}{$name} = $that if defined $that;
    $this->{a}{$name};
}

sub q {
    my $this = shift;

    return lc("$this->{v} #$this->{c}") unless $this->{u};
    return lc($this->{v});
}

sub n {
    my $this = shift;

    return $this->{q};
}

sub pe {
    my $this = shift;
    my $that = shift;

    $this->{q} += $that;
    $this;
}

sub me {
    my $this = shift;
    my $that = shift;
    my $ordr = shift;

    return ($this->{q} = ($that - $this->{q})) if $ordr;
    $this->{q} -= $that;
    $this;
}

my %item_counts;
sub quantity  { my $this = shift; my $q = shift; $this->{q}=$q if defined $q; $this->{q} }
sub    unique { my $this = shift; $this->{u}=1; }
sub nonunique { my $this = shift; $this->{u}=0; my $num = shift;
    if( defined $num ) {
        $this->set_item_number($num);

    } else {
        unless( exists $this->{c} ) {
            $this->{c} = ++ $item_counts{$this->{v}};
        }
    }
}
sub set_item_number {
    my $this = shift;
    my $num  = 0+shift;

    $item_counts{$this->{v}} = $num if not exists $item_counts{$this->{v}} or $num > $item_counts{$this->{v}};
    $this->{c} = $num;
}

"I like GD::Graph.";


__END__