diff --git a/lib/PiTube/Schema/Result/Record.pm b/lib/PiTube/Schema/Result/Record.pm index f442b20895ee3ad15f7d20bd3da9d179eac48a06..c733ea0bb6bbfb6cca5034e9275c1cf992e0f9c4 100644 --- a/lib/PiTube/Schema/Result/Record.pm +++ b/lib/PiTube/Schema/Result/Record.pm @@ -2,6 +2,8 @@ package PiTube::Schema::Result::Record; use strict; use warnings; +use feature 'signatures'; +no warnings qw{ experimental::signatures }; use base 'DBIx::Class::Core'; @@ -39,13 +41,14 @@ __PACKAGE__->belongs_to( ); __PACKAGE__->set_primary_key('id'); +sub is_editable ($self, $user_id=0) { + return $user_id == $self->publish_user_id; +} -sub is_deletable { - my $self = shift; - my $user_id = shift // 0; +sub is_deletable ($self, $user_id=0) { return 0 if $self->is_protected; return $user_id == $self->publish_user_id; } -1; +1;