package HTMLTag;

sub new {
    bless { tag => '', mainval => '', subval => '' },$_[0];
}

sub tag {
    my $self = shift;
    $self->{tag} = $_[0] if $_[0]; # set if applicable
    $self->{tag}; # return
}

sub val {
    my $self = shift;
    $self->{mainval} = $_[0] if $_[0];
    $self->{mainval};
}

sub extra {
    my $self = shift;
    $self->{subval} = $_[0] if $_[0];
    $self->{subval};
}

sub str {
    my $self = shift;
    my $ret = join($self->{tag},"<",">");
    if ($self->{tag} eq 'a'){
        $ret .= join(""," href='",$self->{mainval},">",$self->{subval},"</a>");
    } elsif ($self->{tag} eq 'img'){
        $ret .= join(""," src='",$self->{mainval},"' alt='",$self->{subval},"'>"); # not sure about actual HTML correctness... i forget
    }
}

1; # keep Ryszard happy ;-)