Changeset 2233 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

Timestamp:

03/08/19 08:51:30 (5 years ago)

Author:

nanardon

Message:

Factorize search functions code

File:

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

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

@@ -8 +8 @@
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Utils qw( exec_command to_ascii );
+use DateTime;
 
 our $VERSION = (q$Rev: 2156 $ =~ /^Rev: (\d+) /)[0];
@@ -1243 +1244 @@
 }
 
+=head2 QFunc( $sub, @args )
+
+Compute function given in queryformat/search
+
+=cut
+
+sub QFunc {
+    my ($self, $sub, @args) = @_;
+
+    for ($sub) {
+        /^now$/ and return DateTime->now->iso8601;
+    }
+
+    return '';
+}
+
 1;