sub CLEAR {
    my $self = shift;
    foreach ( @$self ) {
        foreach my $key ( keys %$_ ) {
            delete $_->{ $key }
        }
    }
    $self = [ { } ];
}