Mobile-Wurfl
view release on metacpan or search on metacpan
lib/Mobile/Wurfl.pm view on Meta::CPAN
},
}
);
print STDERR "parse XML ...\n";
$xp->parsefile( $self->{wurfl_file} );
print STDERR "commit dB ...\n";
$self->{dbh}->commit;
return 1;
}
sub update
{
my $self = shift;
print STDERR "get wurfl\n";
my $got_wurfl = $self->get_wurfl();
print STDERR "got wurfl: $got_wurfl\n";
my $rebuilt ||= $self->rebuild_tables();
print STDERR "rebuilt: $rebuilt\n";
return $got_wurfl || $rebuilt;
}
( run in 0.980 second using v1.01-cache-2.11-cpan-4d4bc49f3ae )