package Plugin; use strict; sub new { my ($parent, %args) = @_; my $class = ref($parent) || $parent; my $self = {}; bless $self, $class; return $self; } sub get_name { my ($self) = @_; return "Plugin!"; } 1;