SL/DB/Manager/AuthClient.pm

   1 package SL::DB::Manager::AuthClient;
   2
   3 use strict;
   4
   5 use SL::DB::Helper::Manager;
   6 use base qw(SL::DB::Helper::Manager);
   7
   8 use SL::DB::Helper::Paginated;
   9 use SL::DB::Helper::Sorted;
  10
  11 sub object_class { 'SL::DB::AuthClient' }
  12
  13 __PACKAGE__->make_manager_methods;
  14
  15 sub _sort_spec {
  16   return ( default => [ 'name', 1 ],
  17            columns => { SIMPLE => 'ALL' } );
  18 }
  19
  20 sub get_default {
  21   return $_[0]->get_first(where => [ is_default => 1 ]);
  22 }
  23
  24 1;