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;
    }
}