package HTML::Token;
sub new {
my ($class,$token) = @_;
my $self = bless { token => $token }, $class;
my $identifier = $self->identifier;
return $self;
}
sub identifier {
my $self = shift;
my $token = $self->{token};
my $attributes = $token->return_attrseq;
my $tag = $token->return_tag;
if (ref $attributes eq 'ARRAY') {
return sprintf "%s %s", $tag, join ' ', sort @$attributes;
}
else {
return $tag;
}
}