1# The lack of a progress bar
2
3package XMLTV::ProgressBar::None;
4use strict;
5
6sub new {
7    my $class = shift;
8    my $self = {};
9
10    my $args = shift;
11    unless (ref($args)) {
12        $args = { 'name' => $args };
13    }
14
15    print STDERR $args->{"name"} . "\n";
16
17    return bless $self, $class;
18}
19
20sub AUTOLOAD {
21    # Do nothing
22}
23
241;
25