The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JJNAPIORK / CatalystX-RequestModel-0.020 / lib / CatalystX / RequestModel / Utils / InvalidContentType.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
package CatalystX::RequestModel::Utils::InvalidContentType;
  
use Moose;
with 'CatalystX::Utils::DoesHttpException';
  
has 'ct' => (is=>'ro', required=>1);
sub status_code { 415 }
sub error { "Bad request content type not allowed '@{[ $_[0]->ct ]}' " }
__PACKAGE__->meta->make_immutable;