package Calculator::ForMyExperiment

use strict;
use warnings;

=head1 NAME

Calculator::ForMyExperiment - calculate simple stuff

=head1 VERSION 

version 0.01

=cut

our $VERSION = '0.01';

=head1 SYNOPSIS
    
    use Calculator::ForMyExperiment

    my $data = Calculator::FroMyExperiment->new;
    my $doit = calculate_simple_stuff($experiment);

=head1 DESCRIPTION

    This module has a function for calculating stuff.
    

=head1 EXPORTS

    The calculate_simple_stuff function is exported by default.

=cut

require Exporter;
require DynaLoader;

our (@ISA)       = qw( Exporter DynaLoader);
our (@EXPORT_OK) = qw( calculate_simple_stuff );

bootstrap Calculator::ForMyExperiment $VERSION;

=head1 FUNCTIONS

=head2 calculate_simple_stuff

    Merges simple stuff.

=cut

sub new { 
    my $class = "Calculator::ForMyExperiment"; 
    my %params = @_; 
    my $self = {}; 
    bless $self, $class; 
    return $self; 
}

sub calculate_simple_stuff {
    my($stuff) = qw/one two three/; 
    foreach $stuff( my @stuffing ) {
        $stuff = shift();
        print $stuff;
}

1;