diff --git a/bin/ngcp-dump-schema b/bin/ngcp-dump-schema index a529df58..41b5ba09 100644 --- a/bin/ngcp-dump-schema +++ b/bin/ngcp-dump-schema @@ -76,7 +76,7 @@ for my $db (qw(accounting billing carrier kamailio ngcp provisioning sipstats)) moniker_map => sub { $_[0] }, col_accessor_map => sub { my ($column) = @_; - return $CLASS->can($column) ? "column_$column" : $column; + return __PACKAGE__->can($column) ? "column_$column" : $column; }, components => [qw(InflateColumn::DateTime Helper::Row::ToJSON)], quiet => 1, diff --git a/lib/NGCP/Schema.pm b/lib/NGCP/Schema.pm index e15d683a..f82db17b 100644 --- a/lib/NGCP/Schema.pm +++ b/lib/NGCP/Schema.pm @@ -81,7 +81,7 @@ method _check_ip_generic($ip, $flags) { return; } -$CLASS->meta->make_immutable; +__PACKAGE__->meta->make_immutable; __END__ diff --git a/lib/NGCP/Schema/Config.pm b/lib/NGCP/Schema/Config.pm index 8d21937a..be650021 100644 --- a/lib/NGCP/Schema/Config.pm +++ b/lib/NGCP/Schema/Config.pm @@ -41,7 +41,7 @@ method check_config($config) { return $config; } -$CLASS->meta->make_immutable; +__PACKAGE__->meta->make_immutable; __END__ diff --git a/lib/NGCP/Schema/Exception.pm b/lib/NGCP/Schema/Exception.pm index ea406f35..b4d2b9de 100644 --- a/lib/NGCP/Schema/Exception.pm +++ b/lib/NGCP/Schema/Exception.pm @@ -8,7 +8,7 @@ extends 'Throwable::Error'; has('description', is => 'ro', isa => 'Str', required => 1); has('context', is => 'ro', isa => 'HashRef', documentation => 'extra data to pass along'); -$CLASS->meta->make_immutable(inline_constructor => 0); +__PACKAGE__->meta->make_immutable(inline_constructor => 0); __END__