package Math::SymbolicX::Calculator::Command::Transformation;

use 5.006;
use strict;
use warnings;
use base 'Math::SymbolicX::Calculator::Command';
use Params::Util qw/_INSTANCE/;

our $VERSION = '0.01';

sub new {
    my $proto = shift;
    my $class = ref($proto)||$proto;

    my %args = @_;
    my $self = bless {
        symbol => $args{symbol},
        trafo => $args{object},
        shallow => $args{shallow},
    } => $class;

    return $self;
}

sub _execute {
    my $self = shift;
    my $c = shift;
    
    my $sym = $self->{symbol};
    my $trafo = $self->{trafo};

    my $func = $c->{stash}{$sym};
    if (_INSTANCE($func, 'Math::Symbolic::Custom::Transformation')) {
        return "Cannot apply transformation to another transformation '$sym'";
    }

    if ($self->{shallow}) {
        $trafo->apply($func);
    }
    else {
        $trafo->apply_recursive($func, $trafo);
    }

    return($sym, '==', $func);
}

1;

__END__


=head1 NAME

Math::SymbolicX::Calculator::Command::Transformation

=head1 SYNOPSIS

  Refer to Math::SymbolicX::Calculator::Command instead.

=head1 DESCRIPTION

Refer to L<Math::SymbolicX::Calculator::Command> instead.

=head1 METHODS

=head2 new

Creates a new object of this class. Details are discussed in
L<Math::SymbolicX::Calculator::Command>.

=head1 SEE ALSO

L<Math::SymbolicX::Calculator::Command>

L<Math::SymbolicX::Calculator>

=head1 AUTHOR

Steffen Müller, E<lt>smueller@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2006 by Steffen Müller

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.6 or,
at your option, any later version of Perl 5 you may have available.

=cut