From b80c2bed2250069935d1582f7e41e9be6e2c0b20 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 14 Oct 2010 15:41:28 -0500
Subject: [PATCH] add POD

---
 lib/WebGUI/Admin.pm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/lib/WebGUI/Admin.pm b/lib/WebGUI/Admin.pm
index 6999cb8e6..7a7822a79 100644
--- a/lib/WebGUI/Admin.pm
+++ b/lib/WebGUI/Admin.pm
@@ -2,6 +2,26 @@ package WebGUI::Admin;
 
 # The new WebGUI Admin console
 
+=head1 NAME
+
+WebGUI::Admin - The WebGUI Admin Console
+
+=head1 DESCRIPTION
+
+The WebGUI Admin Console handles editing the Assets in the site, as well
+as administrative tasks like managing Users and Groups.
+
+The base Admin Console does Assets and displays the list of Admin Plugins.
+Admin Plugins do the administrative tasks.
+
+=head1 SEE ALSO
+
+ WebGUI::Admin::Plugin
+ WebGUI::Operation
+ WebGUI::AssetHelper
+
+=cut
+
 use Moose;
 use JSON qw( from_json to_json );
 use namespace::autoclean;
@@ -25,8 +45,19 @@ sub BUILDARGS {
 # Use the template data located in our DATA block
 my $tdata   = do { local $/ = undef; <WebGUI::Admin::DATA> };
 
+=head1 METHODS
+
+=cut
+
 #----------------------------------------------------------------------
 
+=head2 getAdminPluginTemplateVars
+
+Return an arrayref of hashrefs to define the Admin Plugins the current 
+user is allowed to use.
+
+=cut
+
 sub getAdminPluginTemplateVars {
     my $self    = shift;
     my $session = $self->session;