Catalyst-Plugin-AutoCRUD
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/AutoCRUD/Controller/AJAX.pm view on Meta::CPAN
565758596061626364656667686970717273747576sub
create : Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
$c
->stash->{cpac}->{g}->{backend},
'create'
);
}
sub
list : Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
$c
->stash->{cpac}->{g}->{backend},
'list'
);
}
sub
update : Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
$c
->stash->{cpac}->{g}->{backend},
'update'
);
}
sub
delete
: Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
$c
->stash->{cpac}->{g}->{backend},
'delete'
);
}
sub
list_stringified : Chained(
'base'
) Args(0) {
lib/Catalyst/Plugin/AutoCRUD/Controller/DisplayEngine/ExtJS2.pm view on Meta::CPAN
139140141142143144145146147148149150151152153154155156157158
}
}
}
sub
create : Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
'filter_from_ext'
);
$c
->forward(
'/autocrud/ajax/create'
);
}
sub
update : Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
'filter_from_ext'
);
$c
->forward(
'/autocrud/ajax/update'
);
}
sub
delete
: Chained(
'base'
) Args(0) {
my
(
$self
,
$c
) =
@_
;
$c
->forward(
'/autocrud/ajax/delete'
);
}
lib/Catalyst/Plugin/AutoCRUD/Model/StorageEngine/DBIC/CRUD.pm view on Meta::CPAN
312313314315316317318319320321322323324325326327328329330331sub
create {
my
(
$self
,
$c
) =
@_
;
return
&_create_update_txn
(
$c
,
sub
{
my
$c
=
shift
;
my
$meta
=
$c
->stash->{cpac}->{tm};
my
$rs
=
$c
->model(
$meta
->extra(
'model'
) );
return
$rs
->new({});
});
}
sub
update {
my
(
$self
,
$c
) =
@_
;
return
&_create_update_txn
(
$c
,
sub
{
my
$c
=
shift
;
my
$params
=
$c
->req->params;
my
$meta
=
$c
->stash->{cpac}->{tm};
my
$rs
=
$c
->model(
$meta
->extra(
'model'
) );
return
$rs
->find(_extract_ID(
$params
->{
'cpac__id'
} ||
''
), {
key
=>
'primary'
});
});
}
( run in 1.407 second using v1.01-cache-2.11-cpan-49f99fa48dc )