1 2 3 4 5 6 7 8 9 10 11 12
package FixMyStreet::DB::ResultSet::Secret; use base 'DBIx::Class::ResultSet'; use strict; use warnings; sub get { my $rs = shift; return $rs->first->secret; } 1;