#!/usr/bin/perl
#
#

package MeteoalarmCountries;
use strict;
use warnings;
use Carp;
use LWP;

sub new {

    my $class = shift;
    my $self  = {};
    $self->{user_agent} =
'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 3.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)';
    bless( $self, $class );
    return $self;
}

sub countries {
    my %warnpics = (
        'wf_21.jpg'  => 'Wind 1',
        'wf_22.jpg'  => 'Snow/Ice 1',
        'wf_23.jpg'  => 'Thunderstorm 1',
        'wf_24.jpg'  => 'Fog 1',
        'wf_25.jpg'  => 'Extreme high temperature 1',
        'wf_26.jpg'  => 'Extreme low temperature 1',
        'wf_27.jpg'  => 'Coastal Event 1',
        'wf_28.jpg'  => 'Forestfire 1',
        'wf_29.jpg'  => 'Avalanches 1',
        'wf_210.jpg' => 'Rain 1',
    );

    my $self          = shift;
    my %passed_params = @_;
    for my $parm ( keys %passed_params ) {
        $self->{$parm} = $passed_params{$parm};
    }