rename @Args to @pairs

examples/lib/CGI/Header/Extended.pm

@@ -4,26 +4,26 @@ use warnings;
 use parent 'CGI::Header';
 use Carp qw/croak/;
 
+sub get {
+    my ( $self, @keys ) = @_;
+    my @values = map { $self->SUPER::get($_) } @keys;
+    wantarray ? @values : $values[-1];
+}
+
 sub set {
-    my ( $self, @args ) = @_;
+    my ( $self, @pairs ) = @_;
     my $header = $self->header;
 
-    croak "Odd number of elements passed to 'set'" if @args % 2;
+    croak "Odd number of elements passed to 'set'" if @pairs % 2;
 
     my @values;
-    while ( my ($key, $value) = splice @args, 0, 2 ) {
+    while ( my ($key, $value) = splice @pairs, 0, 2 ) {
         push @values, $self->SUPER::set( $key => $value );
     }
 
     @values;
 }
 
-sub get {
-    my ( $self, @keys ) = @_;
-    my @values = map { $self->SUPER::get($_) } @keys;
-    wantarray ? @values : $values[-1];
-}
-
 sub delete {
     my ( $self, @keys ) = @_;
     my @values = map { $self->SUPER::delete($_) } @keys;