File Coverage

blib/lib/Math/Symbolic/Custom/Contains.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	47	47	100.0

package Math::Symbolic::Custom::Contains;

use 5.006;
use strict;
use warnings;
use Carp qw/croak carp cluck confess/;

use Math::Symbolic::Custom::Base;
BEGIN { *import = \&Math::Symbolic::Custom::Base::aggregate_import }

use Math::Symbolic::ExportConstants qw/:all/;
our $VERSION = '1.01';

our $Aggregate_Export = [qw/contains_operator/];

sub contains_operator {
    my ( $f, $op ) = @_;

    my @nodes = ($f);
    while (@nodes) {
        my $n = shift @nodes;
        if ( ref $n eq 'Math::Symbolic::Operator' ) {
            if ( not defined $op ) {
                return $n;
            }
            else {
                if ( $n->type() == $op ) {
                    return $n;
                }
                else {
                    my @ops = $n->descending_operands();
                    push @nodes, @ops;
                }
            }
        }
        else {
            next;
        }
    }
    return (undef);
}

1;
__END__