File Coverage

examples/datasource.pm

Criterion	Covered	Total	%
statement	24	42	57.1
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	0	4	0.0
total	30	60	50.0

package datasource;

use strict;
use warnings;
use Carp;

sub new {
    my  $class  =   shift;
    my  $self   =   {
            'source'    =>  [],
        };
    bless $self, $class;

    return $self->init( @_ );
}

sub init {
    my  $self   =   shift;

    while () {
        chomp;
        my ($location, $zipcode, $name, $amount ) = split(/\|/, $_);

        my $item = datasource::item->new(
                        location    => $location,
                        zipcode     => $zipcode,
                        name        => $name,
                        amount      => $amount
                     );

        push(@{ $self->{source} }, $item );
    }

    return $self;
}

sub next {
    my  $self   =   shift;

    return shift @{ $self->{source} };
}

sub dump_as_csv {
    my  $self   =   shift;
    my  $file   =   shift;

    open(CSV,"> $file") || die "could not open ${file} for writing - $!";

    print CSV '"location","zipcode","name","amount"',"\n";
    while (my $item = $self->next()) {
        print CSV sprintf('"%s","%u","%s","%.2f"',
                            $item->get('location'),
                            $item->get('zipcode'),
                            $item->get('name'),
                            $item->get('amount') ), "\n";
    }
    close(CSV);

    return;
}

package datasource::item;

sub new {
    my  $class  =   shift;
    my  $self   =   { @_ };

    return bless $self,$class;
}

sub get {
    my  $self   =   shift;
    my  $field  =   shift;

    return $self->{$field};
}

sub getall {
    my  $self   =   shift;
    my  %values =   ( %{ $self} );

    return wantarray ? %values : \%values;
}

package datasource;

1;

__DATA__