File Coverage

blib/lib/Pointy/Counter.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	4	6	66.6
condition			n/a
subroutine	11	12	91.6
pod	4	4	100.0
total	50	55	90.9

package Pointy::Counter;

use 5.006;
use strict;

our (@EXPORT, @ISA);
BEGIN
{
	require Exporter;
	@ISA    = qw/Exporter/;
	@EXPORT = qw/counter/;

	$Pointy::Counter::AUTHORITY = 'cpan:TOBYINK';
	$Pointy::Counter::VERSION   = '0.001';

	eval { require Object::AUTHORITY and import Object::AUTHORITY };
}

use overload
	'--' => sub { my ($self) = @_; $$self++ },
	'>'  => sub { my ($self, $other) = @_; $$self < $other },
	'""' => sub { my ($self) = @_; $$self },
	'+0' => sub { my ($self) = @_; $$self },
	fallback => 1,
	;

sub new
{
	my ($class, $initial) = @_;
	$initial = 0 unless defined $initial;
	bless \$initial, $class;
}

sub counter
{
	__PACKAGE__->new(@_);
}

sub continue
{
	my ($self) = @_;
	--$$self;
}

sub value :lvalue
{
	my ($self) = shift;
	$$self = shift if scalar @_;
	$$self;
}

__FILE__
__END__