SL/DB/Bin.pm

   1 package SL::DB::Bin;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Bin;
   6
   7 __PACKAGE__->meta->initialize;
   8
   9 __PACKAGE__->meta->make_manager_class;
  10
  11 sub full_description {
  12   my ($self) = @_;
  13
  14   $self->warehouse
  15     ? $self->warehouse->description . "/" . $self->description
  16     : $self->description
  17 }
  18
  19 1;