44 lines
752 B
Perl
44 lines
752 B
Perl
package WebGUI::Admin::Plugin;
|
|
|
|
use Moose;
|
|
use Scalar::Util qw(blessed);
|
|
|
|
has 'id' => (
|
|
is => 'ro',
|
|
isa => 'Str',
|
|
required => 1,
|
|
);
|
|
|
|
has 'title' => (
|
|
is => 'rw',
|
|
isa => 'Str',
|
|
);
|
|
|
|
has 'icon' => (
|
|
is => 'rw',
|
|
isa => 'Str',
|
|
default => '', # Find a good default
|
|
);
|
|
|
|
has 'iconSmall' => (
|
|
is => 'rw',
|
|
isa => 'Str',
|
|
default => '', # Find a good default
|
|
);
|
|
|
|
sub BUILDARGS {
|
|
my ( $class, $session, %args ) = @_;
|
|
return { session => $session, %args };
|
|
}
|
|
|
|
sub canUse {
|
|
return 1;
|
|
}
|
|
|
|
sub getUrl {
|
|
my ( $self, $method, $params ) = @_;
|
|
$method ||= "view";
|
|
return '?op=admin;plugin=' . $self->id . ';method=' . $method . ';' . $params;
|
|
}
|
|
|
|
1;
|