#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 1;
use WWW::Ruten;
use Encode qw(encode_utf8);

my $ruten = WWW::Ruten->new;

$ruten->search("iPod");
$ruten->each(
    sub {
        my ($self) = @_;

        diag encode_utf8 $self->{title};
        diag encode_utf8 $self->{url};
    }
);

ok("Program finished without problem.");