add tagname() method

... to be able to change the node names.

```
$wq->find('span')->each(sub{ $_->tagname( 'div' ) } );
```