File Coverage

blib/lib/Bubblegum/Object/Scalar.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	6	10	60.0
subroutine	11	11	100.0
pod	7	7	100.0
total	53	57	92.9

# ABSTRACT: Common Methods for Operating on Scalars
package Bubblegum::Object::Scalar;

use 5.10.0;
use namespace::autoclean;

use Bubblegum::Class 'with';
use Bubblegum::Constraints -isas, -types;

with 'Bubblegum::Object::Role::Output';
with 'Bubblegum::Object::Role::Value';

our @ISA = (); # non-object

our $VERSION = '0.45'; # VERSION

sub and {
    my ($self, $other) =  @_;
    return $self && $other;
}

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

sub or {
    my ($self, $other) =  @_;
    return $self || $other;
}

sub print {
    my $self = CORE::shift;
    return CORE::print $self, @_;
}

sub repeat {
    my $self   = CORE::shift;
    my $number = type_number CORE::shift;
    return $self x $number;
}

sub say {
    my $self = CORE::shift;
    return print($self, @_, "\n");
}

sub xor {
    my ($self, $other) =  @_;
    return ($self CORE::xor $other) ? 1 : 0;
}

1;

__END__