$entry, request()->upload('attachments') );
if ( request()->header('Accept') =~ /json/ ) {
my $ret = {
status => 'created',
status(201);
content_type('application/json');
return to_json($ret);
}
if ( $type eq 'comment' ) {
}
}
else {
if ( request()->header('Accept') =~ /json/ ) {
my $ret = {
status => 'error',
te || $self->set || $self->unset );
if ( $self->_import || $self->export ) {
require JSON;
my $path;
if ( defined( $path = $self->export ) ) {
my $converted = d} = [ sort keys %{ $marks->{$id} } ];
}
}
my $out = JSON::to_json( $converted, { utf8 => 1, pretty => 1 } );
if ( $path ne '-' ) {
$in = decode( 'utf8' => <STDIN> );
}
my $converted = JSON::from_json($in);
my $marks = {};
for my $id ( keys %$converted ) {
l;
use Beagle::Util;
use Router::Simple;
use JSON;
use base 'Exporter';
our @EXPORT =
qw/handle request render get post any router admin from_json to_json prefix
redirect process_fields add_attach