+ # Get the HTML page for the title
+ unless(defined($content = $self->simple_get($url))) {
+ $self->error('Could not download HTM');
+ return undef;
+ }
+
+ $p = HTML::TokeParser->new(\$content);
+ while ($t = $p->get_tag('meta')) {
+ if ('meta' eq $t->[0]) {
+ if (exists($t->[1]->{'property'}) and ($t->[1]->{'property'} eq 'og:title')) {
+ $metadata->{'TITLE'} = $t->[1]->{'content'};
+ }
+ }
+ }
+