System error

error:  Undefined subroutine &DHS::schema called at /var/www/vhosts/discount-hotels-search.com/httpdocs/datahandler line 4.
context: 
1:  %$m->call_next;
2:  <%init>
3: 
4:  $schema = DHS::schema();
5: 
6:  if (! eval{$schema->hotels->row_by_pk(pk=>1000)}){
7:  $schema->connect;
8:  }
... 
code stack:  /var/www/vhosts/discount-hotels-search.com/httpdocs/datahandler:4
raw error






























Undefined subroutine &DHS::schema called at /var/www/vhosts/discount-hotels-search.com/httpdocs/datahandler line 4.


Trace begun at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Undefined subroutine &DHS::schema called at /var/www/vhosts/discount-hotels-search.com/httpdocs/datahandler line 4.^J') called at /var/www/vhosts/discount-hotels-search.com/httpdocs/datahandler line 4
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xc98a8a0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1297
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0xc9b9f0c)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0xc9b9f0c)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0xcc60d80)', 'Apache2::RequestRec=SCALAR(0xbd6b580)') called at (eval 34) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0xbd6b580)') called at -e line 0
eval {...} at -e line 0