CORE::shift @{$reader->($_[0])}
};
}
+
+sub clear : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub {
+ @{$reader->($_[0])} = ()
+ };
+}
sub get : method {
my ($attr, $reader, $writer) = @_;
=item B<unshift>
+=item B<clear>
+
=back
=head1 BUGS