1 package HTML5TV::hCalendar;
8 use Data::Dump qw/dump/;
12 my $path = shift || die "need path to hCalendar";
14 my $tree = HTML::TreeBuilder->new;
15 $tree->parse_file($path);
25 # we don't want DESTROY to fallback into AUTOLOAD
32 my $class = $AUTOLOAD;
37 if ( my $vevent = $self->{tree}->look_down( class => 'vevent' ) ) {
38 if ( my $text = $vevent->look_down( class => $class )->as_trimmed_text ) {
41 die "can't find vevent.$class in ", $self->{path};
44 die "can't find vevent in ", $self->{path};
52 my $vevent = $self->{tree}->look_down( class => 'vevent' )
53 ->unshift_content( $el )
60 $self->{tree}->look_down( class => 'vevent' )->look_down( class => 'dtstart' )->attr('title');