File Coverage

blib/lib/Astro/FluxColor.pm

Criterion	Covered	Total	%
statement	51	59	86.4
branch	8	16	50.0
condition	1	3	33.3
subroutine	13	13	100.0
pod	6	6	100.0
total	79	97	81.4

package Astro::FluxColor;

=head1 NAME

Astro::FluxColor - Class for handling astronomical color quantities.

=head1 SYNOPSIS

use Astro::FluxColor;

  $color = new Astro::FluxColor( lower => $lower_waveband,
                                 upper => $upper_waveband,
                                 quantity => $quantity,
				 datetime => new DateTime );

  $quantity = $color->quantity;

=head1 DESCRIPTION

Class for handling astronomical color quantities.

=cut

use 5.006;
use strict;
use warnings;
use warnings::register;
use Carp;

use Astro::WaveBand;
use Number::Uncertainty;

our $VERSION = '0.01';

=head1 METHODS

=head2 Constructor

=over 4

=item B

Create a new instance of an C object.

$color = new Astro::FluxColor( lower => $lower_waveband,
                               upper => $upper_waveband,
                               quantity => $quantity,
			       datetime => new DateTime );

The three named parameters are mandatory. F and F
denote the lower and upper wavebands for the colour, and
must be C objects. F is a numerical
value in magnitudes.

=cut

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

  my %args = @_;

  if( ! defined( $args{'lower'} ) ) {
    croak "Lower waveband must be defined";
  } elsif( ! UNIVERSAL::isa( $args{'lower'}, "Astro::WaveBand" ) ) {
     $args{'lower'} = new Astro::WaveBand( Filter => $args{'lower'} );
  }

  if( ! defined( $args{'upper'} ) ) {
    croak "Upper waveband must be defined";
  } elsif( ! UNIVERSAL::isa( $args{'upper'}, "Astro::WaveBand" ) ) {
     $args{'upper'} = new Astro::WaveBand( Filter => $args{'upper'} );
  }

  my $quantity;
  if( ! defined( $args{'quantity'} ) ) {
    croak "Color quantity must be defined";
  } elsif ( ! UNIVERSAL::isa($args{'quantity'}, "Number::Uncertainty" ) ) {
     $quantity = new Number::Uncertainty( Value => $args{'quantity'} );
  } else {
     $quantity = $args{'quantity'};
  }
  my $color = {};

  $color->{LOWER} = $args{'lower'};
  $color->{UPPER} = $args{'upper'};
  $color->{QUANTITY} = $quantity;

  if( defined( $args{'datetime'} ) ) {
     unless ( UNIVERSAL::isa( $args{'datetime'}, "DateTime" ) ) {
        croak "Time stamp must be a DateTime object\n";
     } else {
        $color->{TIME} = $args{'datetime'};
     }
  }

  bless( $color, $class );
  return $color;

}

=back

=head2 Accessor Methods

=over 4

=item B

Returns the actual color value.

  my $value = $color->quantity;

There are no parameters.

=cut

sub quantity {
  my $self = shift;

  my $number = $self->{QUANTITY};
  my $value = $number->value();
  return $value;
}

=item B

Returns the actual uncertainty in the cerror.

  my $e = $color->error;

There are no parameters.

=cut

sub error {
  my $self = shift;

  my $number = $self->{QUANTITY};
  my $error = $number->error();
  return $error;
}

=item B

Returns the lower waveband.

  my $lower = $color->lower;

There are no parameters. An C object is returned.

=cut

sub lower {
  my $self = shift;
  return $self->{LOWER};
}

=item B

Returns the upper waveband.

  my $upper = $color->upper;

There are no parameters. An C object is returned.

=cut

sub upper {
  my $self = shift;
  return $self->{UPPER};
}


=item B

Returns the datetime stamp for the given flux object.

  my $datetime = $flux->datetime;

Returns an C object if defined. If not, returns undef.

=cut

sub datetime {
  my $self = shift;

  return $self->{TIME};
}

=back

=head1 REVISION

  $Id: FluxColor.pm,v 1.6 2005/06/15 01:14:01 allan Exp $

=head1 AUTHORS

Brad Cavanagh [e-mail],
Alasdair Allan [e-mail]

=head1 COPYRIGHT

Copyright (C) 2004 Particle Physics and Astronomy Research
Council.  All Rights Reserved.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1;