use App::Class; # Import::Into class App::DB { use Data::Printer; # our $DBNAME; # in case we need direct access to db name (eg DBIx::Simple) field $dbh :reader :param; # mandatory method find_user ($username) { my $user = $dbh->quick_select( users => { username => $username } ); # p $user; return $user; } method save_document ($data) { p $data; return; my $result = do { # choice is to capture error, or just die with db error try { # since user probably cannot do anything about it $dbh->quick_insert( library => $data ); return { success => 1 }; # TODO: enter success msg & configure main.tt } catch ($e) { return { error => $e }; } }; return $result; } }