po: avoid warnings and possible bugs with nested named subroutines

[git.ikiwiki.info.git] / IkiWiki / Plugin / skeleton.pm.example

diff --git a/IkiWiki/Plugin/skeleton.pm.example b/IkiWiki/Plugin/skeleton.pm.example
index 96c4a5d6b6515461dcc85ff316db3793e248f417..ea7500a70fb96b3494bc58f6b7cbbf7673d08e21 100644 (file)
--- a/IkiWiki/Plugin/skeleton.pm.example
+++ b/IkiWiki/Plugin/skeleton.pm.example
@@ -30,6 +30,7 @@ sub import {
        hook(type => "auth", id => "skeleton", call => \&auth);
        hook(type => "sessioncgi", id => "skeleton", call => \&sessioncgi);
        hook(type => "canedit", id => "skeleton", call => \&canedit);
+       hook(type => "cansave", id => "skeleton", call => \&cansave);
        hook(type => "editcontent", id => "skeleton", call => \&editcontent);
        hook(type => "formbuilder_setup", id => "skeleton", call => \&formbuilder_setup);
        hook(type => "formbuilder", id => "skeleton", call => \&formbuilder);
@@ -180,6 +181,31 @@ sub canedit ($$$) {
        debug("skeleton plugin running in canedit");
 }
 
+sub cansave ($$$$) {
+       my $page=shift;
+       my $content=shift;
+       my $cgi=shift;
+       my $session=shift;
+
+       debug("skeleton plugin running in cansave");
+}
+
+sub canremove ($$$) {
+       my $page=shift;
+       my $cgi=shift;
+       my $session=shift;
+
+       debug("skeleton plugin running in canremove");
+}
+
+sub canrename ($$$) {
+       my $page=shift;
+       my $cgi=shift;
+       my $session=shift;
+
+       debug("skeleton plugin running in canrename");
+}
+
 sub editcontent ($$$) {
        my %params=@_;