File Coverage

blib/lib/Finance/RawMaterialPrice.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	4	6	66.6
condition	4	10	40.0
subroutine	10	10	100.0
pod	0	3	0.0
total	50	63	79.3

package Finance::RawMaterialPrice;

use strict;
use warnings;
use autodie;
use utf8;
use Carp qw( croak );
use LWP::Simple qw(get);

our $VERSION     = '0.02';
our @EXPORT      = qw(get_gold_price get_silver_price);
our @EXPORT_OK   = qw(get_raw_material_price);
our %EXPORT_TAGS = ( all => [ @EXPORT, @EXPORT_OK ] );
use base qw(Exporter);
my $base_url = 'http://www.finanzen.net/rohstoffe';

sub get_raw_material_price {
    my $url = shift;
    for ( split /\n/, get($url) ) {
        next unless m#
        my $price = "$1$2";
        return $price / 100000;
    }

}

sub get_gold_price {
    my $unit = shift || 'euro';
    unless ( $unit eq 'euro' or $unit eq 'dollar' ) {
        croak "Either use 'euro' or 'dollar'";
    }
    return get_raw_material_price("$base_url/goldpreis/$unit");
}

sub get_silver_price {
    my $unit = shift || 'euro';
    unless ( $unit eq 'euro' or $unit eq 'dollar' ) {
        croak "Either use 'euro' or 'dollar'";
    }
    return get_raw_material_price("$base_url/silberpreis/$unit");
}

__END__