Web::Queryで最初の要素を取りたい！ その2

Web::Queryにfirst()、last()みたいなのがあると便利だなーと思いました。
例えば、こんな感じ。

sub first {
    my $self = shift;
    $self->{trees} = +[$self->{trees}[0]];
    return $self;
}

sub last {
    my $self = shift;
    $self->{trees} = +[$self->{trees}[-1]];
    return $self;
}

これがいいかどうかはわかんないけど。