135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Convert useless die to error+return in Plugin.pm

Browse Source
This commit is contained in:
Oliver Gorwits
2013-03-10 15:00:03 +00:00
parent b9e8e86148
commit a67478dd5c
3 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Netdisco/lib/App/Netdisco/Web.pm
View File

@@ -23,6 +23,7 @@ sub _load_web_plugins {
unless $plugin =~ m/^\+/;
$plugin =~ s/^\+//;
debug "loading Netdisco plugin $plugin";
eval "require $plugin";
}
}

26
Netdisco/lib/App/Netdisco/Web/Plugin.pm
View File

@@ -15,8 +15,10 @@ config->{engines}->{template_toolkit}->{INCLUDE_PATH} ||= [ setting('views') ];
register 'register_template_path' => sub {
my ($self, $path) = plugin_args(@_);
die "bad template path to register_template_paths\n"
unless length $path;
if (!length $path) {
error "bad template path to register_template_paths";
return;
}
unshift
@{ config->{engines}->{template_toolkit}->{INCLUDE_PATH} },
@@ -26,10 +28,13 @@ register 'register_template_path' => sub {
register 'register_navbar_item' => sub {
my ($self, $config) = plugin_args(@_);
die "bad config to register_navbar_item\n"
unless length $config->{id}
and length $config->{path}
and length $config->{label};
if (!length $config->{id}
or !length $config->{path}
or !length $config->{label}) {
error "bad config to register_navbar_item";
return;
}
foreach my $item (@{ setting('navbar_items') }) {
if ($item->{id} eq $config->{id}) {
@@ -45,9 +50,12 @@ sub _register_tab {
my ($nav, $config) = @_;
my $stash = setting("${nav}_tabs");
die "bad config to register_${nav}_tab\n"
unless length $config->{id}
and length $config->{label};
if (!length $config->{id}
or !length $config->{label}) {
error "bad config to register_${nav}_item";
return;
}
foreach my $item (@{ $stash }) {
if ($item->{id} eq $config->{id}) {