File Coverage

blib/lib/Math/GrahamFunction/SqFacts/Dipole.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	53	53	100.0

package Math::GrahamFunction::SqFacts::Dipole;
$Math::GrahamFunction::SqFacts::Dipole::VERSION = '0.02002';
use strict;
use warnings;


use base qw(Math::GrahamFunction::SqFacts);

use List::Util ();
__PACKAGE__->mk_accessors(qw(result compose));

sub _initialize
{
    my $self = shift;
    my $args = shift;

    $self->result($args->{result});
    $self->compose($args->{compose});

    return 0;
}


sub clone
{
    my $self = shift;
    return __PACKAGE__->new(
        {
            'result' => $self->result()->clone(),
            'compose' => $self->compose()->clone(),
        });
}


sub mult_by
{
    my $n_ref = shift;
    my $m_ref = shift;

    $n_ref->result()->mult_by($m_ref->result());
    $n_ref->compose()->mult_by($m_ref->compose());

    return 0;
}


sub is_square
{
    my $self = shift;
    return $self->result()->is_square();
}


sub exists
{
    my ($self, $factor) = @_;

    return $self->result()->exists($factor);
}


sub first
{
    my $self = shift;

    return $self->result()->first();
}


sub factors
{
    my $self = shift;

    return $self->result->factors();
}

sub _get_ret
{
    my $self = shift;

    return [ @{$self->compose->factors()} ];
}

1;

__END__