ugly hack to find to enable to return of Mojo::DOM objects rather than a colleciton

gistfile1.txt

sub find {
  my ($self, $selector, $dom) = @_;

  # Match selector against tree
  my $results = Mojo::DOM::CSS->new(tree => $self->tree)->select($selector);

  # Upgrade results
  @$results
    = map { $self->new->charset($self->charset)->tree($_)->xml($self->xml) }
    @$results;
  
  return @$results if ($dom);
  return Mojo::Collection->new(@$results);
}