SLIDE 23 LD, PJ-GE, juin 07 23
Exemple de contrôleur Catalyst
package Pl at For m s: : M
use DBI x: : Dat aM
DBI x: : Dat aM
a( ' PbT' ' PbT' ) ; ) ; PbT- >
em ber qw/ PbT: : M em ber m em ber m em ber m em ber _i d/ m em ber _i d/ ) ; ) ; PbT- >
qw/ PbT: : TTT t t t t t t t t t _i d/ t t t _i d/ ) ; ) ; PbT- >
- >Tabl e( qw/ PbT: : Logi n
qw/ PbT: : Logi n l ogi n l ogi n l ogi n_i d/ l ogi n_i d/ ) ; ) ; PbT- >
- >Tabl e( qw/ PbT: : I nt er est
qw/ PbT: : I nt er est i nt er est i nt er est i nt er est _i d/ i nt er est _i d/ ) ; ) ; PbT- >
- >Tabl e( qw/ PbT: : Cont act _st
qw/ PbT: : Cont act _st at us cont act _st at us at us cont act _st at us m em ber _i d cont act _i d/ m em ber _i d cont act _i d/ ) ; ) ; PbT- >
em ber _i nt er qw/ PbT: : M em ber _i nt er est m em ber _i nt er est est m em ber _i nt er est m em ber _i nt er est _i d/ m em ber _i nt er est _i d/ ) ; ) ; PbT- >
posi t i on( [ ( [ qw/ PbT: : M em ber qw/ PbT: : M em ber m em ber m em ber 1/ 1/ ] , ] , [ qw/ PbT: : TTT qw/ PbT: : TTT t est s t est s * / * / ] ) ; ] ) ; PbT- >
posi t i on( [ ( [ qw/ PbT: : M em ber qw/ PbT: : M em ber m em ber m em ber 1/ 1/ ] , ] , [ qw/ PbT: : M em ber _i qw/ PbT: : M em ber _i nt er est m em ber _i nt er est s * / nt er est m em ber _i nt er est s * / ] ) ; ] ) ; PbT- >
( [ qw/ PbT: : I nt er est qw/ PbT: : I nt er est i nt er est i nt er est 1/ 1/ ] , ] , [ qw/ PbT: : M em ber _i qw/ PbT: : M em ber _i nt er est m em ber _i nt er est s * / nt er est m em ber _i nt er est s * / ] ) ; ] ) ;