File Coverage

blib/lib/SETI/Drake.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	31	33	93.9

# $Id: Drake.pm 868 2008-04-20 07:24:28Z gene $

package SETI::Drake;
$VERSION = 0.0201;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $proto = ref $class || $class;
    my $self  = {
        defaults => {
            R  => 5,
            fp => 0.5,
            ne => 2,
            fl => 1,
            fi => 0.2,
            fc => 1,
            L  => 10000,
        },
        @_
    };
    bless $self, $class;
    $self->_init();
    return $self;
}

sub _init {
    my $self = shift;
    for( keys %{$self->{defaults}} ) {
        # Make sure each equation term has a defined value.
        $self->{$_} = $self->{defaults}{$_}
            unless defined $self->{$_};
    }
}

sub N {
    my $self = shift;
    # Set N to the value of R.
    my $N = $self->{R};
    # Calculate the repeated product of every value of the object except R and the defaults.
    $N *= $self->{$_} for grep { !/^R|defaults$/o } keys %$self;
    return $N;
}

1;

__END__