The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JJNAPIORK / Valiant-0.002017 / example / lib / Example / Model / Times.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

              
package Example::Model::Times;
use Moose;
extends 'Catalyst::Model';
package Example::Model::Times::StartTime;
use Moose;
use DateTime;
extends 'Catalyst::Model';
sub COMPONENT {
  my ($class, $app, $args) = @_;
  my $merged_args = $class->merge_config_hashes($class->config, $args);
  return DateTime->now;
}
package Example::Model::Times::NowTime;
use Moose;
use DateTime;
extends 'Catalyst::Model';
sub ACCEPT_CONTEXT {
  my ($class_instance, $c, @args) = @_;
  return DateTime->now;  
}
1;