#!/usr/bin/perl
use strict;

use MyModels::Main::Result::User;
use DecoratorHistory;


my $prj = new MyModels::Main::Result::User( ... );
   $prj = new DecoratorHistory($prj);

my $p = $prj->search( {project_id => 12 } , {} )->single();