—
—

              
package Oak::Web::HTML::A;
use strict;
use Error qw(:try);
use base qw(Oak::Web::Container);
HideShow 23 lines of Pod
=head1 NAME
Oak::Web::HTML::A - A HTML tag (Container)
=head1 DESCRIPTION
A Container to hold objects inside an A tag
=head1 HIERARCHY
  Oak::Object
  Oak::Persistent
  Oak::Component
  Oak::Web::Visual
  Oak::Web::Container
  Oak::Web::HTML::A
=head1 PROPERTIES
The Oak::Web::HTML::A object has the properties defined by W3C
=cut
sub valid_html_attributes {
        my $self = shift;
        (
         $self->core_attributes,
         $self->i18n_attributes,
         $self->events_attributes,
         "charset",
         "type",
         "name",
         "href",
         "hreflang",
         "target",
         "rel",
         "rev",
         "accesskey",
         "shape",
         "coords",
         "tabindex",
         "onfocus",
         "onblur"
        );
}
sub start_container {
        my $self = shift;
        print "<A";
        print $self->print_html_attributes;
        print ">\n";
}
sub end_container {
        print "</A>\n";
}
1;
__END__
HideShow 8 lines of Pod
=head1 COPYRIGHT
Copyright (c) 2001
Daniel Ruoso <daniel@ruoso.com>
All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.