package HTML::Element;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw( html head title body h1 p br table Tr td );
our $AUTOLOAD;
sub new { bless {}, shift }
sub AUTOLOAD {
    my $self = ref($_[0]) eq __PACKAGE__ ? shift : undef;
    my $attr = ref($_[0]) eq 'HASH' ? shift : {};
    my $tag  = $AUTOLOAD =~ s/.*:://r;
    my $attr_txt = '';
    $attr_txt .= qq( $_="$attr->{$_}") for keys %$attr;
    return @_ ? "<$tag$attr_txt>@_</$tag>" : "<$tag$attr_txt />";
}
1;