File Coverage

blib/lib/Acme/Crap.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	4	4	100.0
condition			n/a
subroutine	15	15	100.0
pod	0	1	0.0
total	70	71	98.5

package Acme::Crap;
use 5.010;

our $VERSION = '0.001002';

use warnings;
use strict;
use Carp;

sub deref { my ($self) = @_; return ${$self}; }

use overload (
    q{!}    => sub { Acme::Crap::Negated->new(&deref) },
    q{""}   => \&deref,
    q{0+}   => \&deref,
    q{bool} => \&deref,

    fallback => 1,
);

sub import {
    overload::constant q => sub { my $val = $_[1]; bless \$val, 'Acme::Crap' };

    no strict qw( refs );
    *{caller().'::crap'} = sub {
        local $Acme::Crap::no_negation = 1;
        @_ = map {"$_"} @_;
        goto &Carp::carp;
    }
}

package Acme::Crap::Negated;

sub new {
    my ($class, $val) = @_;
    bless { val => $val, degree => 1 }, $class;
}

sub value {
    my ($self) = @_;
    if ($Acme::Crap::no_negation) {
        given ($self->{degree}) {
            when (1) { return ucfirst "$self->{val}!" }
            when (2) { return join q{}, map { ucfirst $_ } split /(\s+)/, "$self->{val}!!" }
            default  { return uc $self->{val} . '!' x $_ }
        }
    }
    return !$self->{val} if $self->{degree} % 2;
    return !!$self->{val};
}

use overload (
    q{!}    => sub { my ($self) = @_; $self->{degree}++; return $self; },
    q{""}   => \&value,
    q{0+}   => \&value,
    q{bool} => \&value,

    fallback => 1,
);

1; # Magic true value required at end of module

__END__