Changeset 1043 for trunk/LATMOS-Accounts

Timestamp:

05/31/12 19:50:39 (12 years ago)

Author:

nanardon

Message:

• reoarder code to improve documentation

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (5 diffs)

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

@@ -91 +91 @@
 
     $self
+}
+
+=head2 list_bases
+
+Return the base list found in config file
+
+=cut
+
+sub list_bases {
+    my ($self) = @_;
+    grep {
+        !m/^_.*_$/ &&
+        !m/^sync:/
+    } $self->Sections
 }
 
@@ -123 +137 @@
 }
 
-=head2 list_bases
-
-Return the base list found in config file
-
-=cut
-
-sub list_bases {
-    my ($self) = @_;
-    grep {
-        !m/^_.*_$/ &&
-        !m/^sync:/
-    } $self->Sections
+=head2 default_base_name
+
+Return the default base name according config file
+
+=cut
+
+sub default_base_name {
+    my ($self) = @_;
+    $self->val('_default_', 'base', ($self->list_bases)[0]);
 }
 
@@ -150 +161 @@
     # this method perform a cache
     $self->_load_base($section || $self->default_base_name);
-}
-
-=head2 default_base_name
-
-Return the default base name according config file
-
-=cut
-
-sub default_base_name {
-    my ($self) = @_;
-    $self->val('_default_', 'base', ($self->list_bases)[0]);
 }
 
@@ -199 +199 @@
 }
 
+=head2 list_synchro
+
+List synchronisation setup in L<latmos-accounts.ini>
+
+=cut
+
+sub list_synchro {
+    my ($self) = @_;
+    grep { $_ } map { /^sync:(.*)$/; $1 } $self->Sections
+}
+
 =head2 default_synchro_name
 
@@ -208 +219 @@
     my ($self) = @_;
     $self->val('_default_', 'sync');
-}
-
-=head2 list_synchro
-
-List synchronisation setup in L<latmos-accounts.ini>
-
-=cut
-
-sub list_synchro {
-    my ($self) = @_;
-    grep { $_ } map { /^sync:(.*)$/; $1 } $self->Sections
 }