From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JOHND / Class-DBI-Lite-1.020 / t / lib / My / User.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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

              
package My::User;
use strict;
use warnings 'all';
use base 'My::Model';
use Data::Dumper;
__PACKAGE__->set_up_table('users');
__PACKAGE__->add_trigger( before_update => sub {
  my $s = shift;
});
__PACKAGE__->add_trigger( before_set_user_first_name => sub {
  my ($s, $oldval, $newval) = @_;
});
__PACKAGE__->add_trigger( before_update_user_first_name => sub {
  my ($s, $oldval, $newval) = @_;
});
__PACKAGE__->add_trigger( after_update_user_first_name => sub {
  my ($s, $oldval, $newval) = @_;
});
__PACKAGE__->add_trigger( after_update => sub {
  my $s = shift;
});
__PACKAGE__->add_trigger( before_create => sub {
  my $s = shift;
  $s->user_last_name( uc($s->user_last_name) );
});
__PACKAGE__->add_trigger( after_create => sub {
  my $s = shift;
  $s->user_last_name( ucfirst($s->user_last_name) );
  $s->update;
});
__PACKAGE__->add_trigger( before_delete => sub {
  my $s = shift;
});
__PACKAGE__->add_trigger( after_delete => sub {
  my $s = shift;
});
__PACKAGE__->add_trigger( after_delete => sub {
  my $s = shift;
});
1;# return true: