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.02004';
use strict;
use warnings;


use parent 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__