package MyBlog::Model::Blog; sub load { my ($self, $ident) = @_; die "Cannot load Blog without ident" unless $ident; my $blog = $self->resultset( 'Blog' )->find( $ident ); return $blog if $blog; die "Cannot find Blog with ident $ident"; }