| CATALYST :: Controller :: Kendala CATALYST :: Controller :: Kendala berisi tanda tangan kendala untuk tindakan pengontrol. |
Unduh sekarang |
CATALYST :: Controller :: Kendala Peringkat & Ringkasan
- Lisensi:
- Perl Artistic License
- Nama Penerbit:
- Robert Sedlacek
- Situs web penerbit:
- http://search.cpan.org/~phaylon/
CATALYST :: Controller :: Kendala Tag
CATALYST :: Controller :: Kendala Keterangan
CATALYST :: Controller :: Constains berisi tanda tangan kendala untuk tindakan pengontrol. CATALYST :: Controller :: Kendala berisi tanda tangan kendala untuk tindakan pengontrol. Paket Synopsis MyApp :: controller :: foo; ... Gunakan basis QW (Catalyst :: Controller :: Constains); __Package __-> config (constraints => {# izinkan hanya digit untuk integer tipe 'integer' => QR / ^ D + $ /, # izinkan hanya kata kata untuk jenis 'kata' kata => sub {/ ^ w + $ / __}, # Validasi ID pengguna dan mengembang ke pengguna objek => {# Periksa pemeriksaan ID pengguna => sub {saya ($ diri saya, $ c, $ id) = @_; mengembalikan $ c-> is_valid_user_id ($ id);}, # meneruskan tindakan ini jika validasi gagal on_fail => 'invalid_user', # jika nilai valid, jalankan melalui filter ini # setelahnya post_filter => sub {saya ($ diri, $ c, $ id) = @; c- etch_user_by_id ($ id);},} # warisan highinteger => {warisan ', periksa => sub {$ _> 22},} {# ambil tiga bilangan bulat dan mengembalikan satu nilai yang dibutuhkan => 3, memberi => 1, # mengembang ke objek datetime post_filter => sub {saya ($ diri saya, $ c, $ D) = @_; @_; @_; @_; (tahun => $ y, bulan => $ m, hari => $ d);}}})); # Tambahkan dua bilangan bulat, cukup lempar pengecualian pada sub-kendala Kegagalan sub add: args lokal (2) kendala (integer a, integer b) {my ($ diri, $ c) = @_ $ c-> res-> tubuh ($ _ {a} + $ _ {b}); } # Menempatkan kata ke dalam simpanan, di bawah sub 'foo' substwwwwwwwwwwwwwwwws (1) daerah (1) kendala (word foo *) {} # user_obj berakhir sebagai objek pengguna dalam Subs Sub View_user: args lokal (1) (Pengguna user_obj *) {} Sub Invalid_user: Pribadi {# menangani userid} 1; persyaratan: · Perl persyaratan: · Perl.
CATALYST :: Controller :: Kendala Perangkat Lunak Terkait