| Text-Microformat documentation | Contained in the Text-Microformat distribution. |
Text::Microformat::Element::rel_tag - a rel-tag element
To add rel-tag to a Text::Microformat schema:
package Text::Microformat::Element::hMyFormat
__PACKAGE__->init(
'my-format',
schema => {
tags => 'rel-tag',
}
);
To then retrieve tags from a Text::Microformat::Element::hMyFormat instance:
foreach my $tag (@{$format->tags}) {
print $tag->MachineValue, "\n"; # print the href
print $tag->HumanValue, "\n"; # print the tag word
}
Keith Grennan, <kgrennan at cpan.org>
Log bugs and feature requests here: http://code.google.com/p/ufperl/issues/list
Project homepage: http://code.google.com/p/ufperl/
Copyright 2007 Keith Grennan, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Text-Microformat documentation | Contained in the Text-Microformat distribution. |
package Text::Microformat::Element::rel_tag; use warnings; use strict; use base 'Text::Microformat::Element'; __PACKAGE__->_init({ criteria => { rel => 'tag', }, }); sub MachineValue { my $self = shift; my $tag = defined $self->_element->local_name ? $self->_element->local_name : ""; if ($tag eq 'a') { return $self->_element->attr('href'); } else { return undef; } }
1;