view release on metacpan or  search on metacpan

lib/App/Bernard/Magic/Gnome.pm  view on Meta::CPAN

sub new {
    return bless {};
}

sub fetch {
    my ($self, $url, $target) = @_;

    my $ua = LWP::UserAgent->new;

    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);

    die "HTTP error: " . $res->status_line. "\n"
	unless $res->is_success;

    write_file ($target, $res->content);
}

sub process_file {
    my ($self, $filename, $settings) = @_;