root/branches/release-40/t/lib/Test/Deep/Methods.pm @ 2583

use strict;
use warnings;

package Test::Deep::Methods;

use Test::Deep::Cmp;

sub init
{
        my $self = shift;

        # get them all into [$name,@args] => $value format
        my @methods;
        while (@_)
        {
                my $name = shift;
                my $value = shift;
                push(@methods,
                        [
                                ref($name) ? $name : [ $name ],
                                $value
                        ]
                );
        }
        $self->{methods} = \@methods;
}

sub descend
{
        my $self = shift;
        my $got = shift;

        my $data = $self->data;

        foreach my $method (@{$self->{methods}})
        {
                $data->{method} = $method;

                my ($call, $exp_res) = @$method;
                my ($name) = @$call;

                my $got_res = UNIVERSAL::can($got, $name) ?
                        $self->call_method($got, $call) :
                        $Test::Deep::DNE;

                next if Test::Deep::descend($got_res, $exp_res);

                return 0;
        }

        return 1;
}

sub call_method
{
        my $self = shift;
        my ($got, $call) = @_;
        my ($name, @args) = @$call;

        return $got->$name(@args);
}

sub render_stack
{
        my $self = shift;
        my ($var, $data) = @_;

        my $method = $data->{method};
        my ($call, $expect) = @$method;
        my ($name, @args) = @$call;

        my $args = @args ? "(".join(", ", @args).")" : "";
        $var .= "->$name$args";

        return $var;
}

1;