/usr/local/CPAN/Test-C2FIT/Test/C2FIT/eg/ArithmeticColumnFixture.pm

• package Test::C2FIT::eg::ArithmeticColumnFixture
  • PI
  • new
  • suggestMethodResultType
  • plus
  • minus
  • times
  • divide
  • floating
  • sin
  • cos
• EOF

# ArithmeticColumnFixture.pm
#
# Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Dave W. Smith <dws@postcognitive.com>
# Modified by Tony Byrne <fit4perl@byrnehq.com>

package Test::C2FIT::eg::ArithmeticColumnFixture;
use base 'Test::C2FIT::ColumnFixture';
use Test::C2FIT::ScientificDouble;

use strict;

sub PI { 3.1415926535897932384626433832795; }

sub new {
    my $pkg = shift;
    return $pkg->SUPER::new( x => 0, y => 0, @_ );
}

sub suggestMethodResultType {
    my ( $self, $name ) = @_;
    return 'Test::C2FIT::ScientificDoubleTypeAdapter' if $name =~ /^(cos|sin)$/;
    return $self->SUPER::suggestMethodResultType($name);
}

sub plus {
    my $self = shift;
    return $self->{'x'} + $self->{'y'};
}

sub minus {
    my $self = shift;
    return $self->{'x'} - $self->{'y'};
}

sub times {
    my $self = shift;
    return $self->{'x'} * $self->{'y'};
}

sub divide {
    my $self = shift;
    return int( $self->{'x'} / $self->{'y'} );
}

sub floating {
    my $self = shift;
    return $self->{'x'} / $self->{'y'};
}

sub sin {
    my $x = $_[0]->{'x'};
    return Test::C2FIT::ScientificDouble->new( sin( $x / 180 * PI ) );
}

sub cos {
    my $x = $_[0]->{'x'};
    return Test::C2FIT::ScientificDouble->new( cos( $x / 180 * PI ) );
}

1;