Changeset 1071 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

07/24/12 22:56:06 (12 years ago)

Author:

nanardon

Message:

• rename options() to config() to clarify its role

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (4 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -550 +550 @@
 }
 
-=head2 text_dump ($handle, $options, $base)
+=head2 text_dump ($handle, $config, $base)
 
 Dump object into C<$handle>
@@ -557 +557 @@
 
 sub text_dump {
-    my ($self, $handle, $options, $base) = @_;
-    print $handle $self->dump($options, $base);
+    my ($self, $handle, $config, $base) = @_;
+    print $handle $self->dump($config, $base);
     return 1;
 }
@@ -569 +569 @@
 
 sub dump {
-    my ($self, $options, $base) = @_;
+    my ($self, $config, $base) = @_;
 
     my $otype = $self->type;
@@ -581 +581 @@
 
     foreach my $attr (sort { $a cmp $b } $base->list_canonical_fields($otype,
-        $options->{only_rw} ? 'rw' : 'r')) {
+        $config->{only_rw} ? 'rw' : 'r')) {
         my $oattr = $base->attribute($otype, $attr);
         if (ref $self) {
             my $val = $self->get_c_field($attr);
-            if ($val || $options->{empty_attr}) {
+            if ($val || $config->{empty_attr}) {
                 if (my @allowed = $base->obj_attr_allowed_values($otype, $attr)) {
                     $dump .= sprintf("# %s must be%s: %s\n",