- $p->handler(start => \@accum, "tagname, attr");
- $p->report_tags(qw(meta link));
- $p->utf8_mode(1);
- $p->parse($content);
-
- # Look for the title in the meta tags
- foreach $e (@accum) {
- if ('meta' eq $e->[0]) {
- if ('title' eq $e->[1]->{'name'}) {
- $metadata->{'TITLE'} = $e->[1]->{'content'};
- $metadata->{'TITLE'} =~ s/\s+Video\s+-\s+\S+\s+-\s+MyVideo$//;
- $self->debug("Found title: %s", $metadata->{'TITLE'});
- last;
+ $p = HTML::TokeParser->new(\$content);
+ while ($t = $p->get_tag('meta', 'link')) {
+ if ('meta' eq $t->[0]) {
+ if (exists($t->[1]->{property}) and ($t->[1]->{property} eq 'og:title')) {
+ $metadata->{'TITLE'} = $t->[1]->{content};