Skip to content

Instantly share code, notes, and snippets.

@perlDreamer

perlDreamer/gist:359164

Created April 7, 2010 17:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save perlDreamer/359164 to your computer and use it in GitHub Desktop.
Save perlDreamer/359164 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 24dcde8..cdac87c 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -1414,13 +1414,13 @@ sub getTemplateVars {
=head2 indexContent ( )
-Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additonal details.
+Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined3);
@@ -1431,7 +1431,7 @@ sub indexContent {
foreach my $file (@{$storage->getFiles}) {
$indexer->addFile($storage->getPath($file));
}
-}
+};
diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index def703a..3aeec9f 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -353,15 +353,15 @@ sub getStorageLocation {
=head2 indexContent ( )
-Indexing the content of the attachment. See WebGUI::Asset::indexContent() for additonal details.
+Indexing the content of the attachment. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addFile($self->getStorageLocation->getPath($self->filename));
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/MatrixListing.pm b/lib/WebGUI/Asset/MatrixListing.pm
index ac170ea..bb56418 100644
--- a/lib/WebGUI/Asset/MatrixListing.pm
+++ b/lib/WebGUI/Asset/MatrixListing.pm
@@ -387,16 +387,16 @@ sub incrementCounter {
=head2 indexContent ( )
-Making private. See WebGUI::Asset::indexContent() for additonal details.
+Making private. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->next::method;
+ my $indexer = super();
$indexer->setIsPublic(0);
return undef;
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index fb5cc00..c5aca87 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -798,13 +798,13 @@ sub hasRated {
=head2 indexContent ( )
-Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additonal details.
+Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->content);
$indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2);
@@ -816,7 +816,7 @@ sub indexContent {
foreach my $file (@{$storage->getFiles}) {
$indexer->addFile($storage->getPath($file));
}
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/RichEdit.pm b/lib/WebGUI/Asset/RichEdit.pm
index 45e1e1e..da92723 100644
--- a/lib/WebGUI/Asset/RichEdit.pm
+++ b/lib/WebGUI/Asset/RichEdit.pm
@@ -647,15 +647,15 @@ EOHTML1
=head2 indexContent ( )
-Making private. See WebGUI::Asset::indexContent() for additonal details.
+Making private. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->setIsPublic(0);
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Sku.pm b/lib/WebGUI/Asset/Sku.pm
index bbaff19..a1639f2 100644
--- a/lib/WebGUI/Asset/Sku.pm
+++ b/lib/WebGUI/Asset/Sku.pm
@@ -390,16 +390,16 @@ sub getWeight {
=head2 indexContent ( )
-Adding sku as a keyword. See WebGUI::Asset::indexContent() for additonal details.
+Adding sku as a keyword. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->sku);
return $indexer;
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Sku/EMSTicket.pm b/lib/WebGUI/Asset/Sku/EMSTicket.pm
index 9a97e8c..70f3e8c 100644
--- a/lib/WebGUI/Asset/Sku/EMSTicket.pm
+++ b/lib/WebGUI/Asset/Sku/EMSTicket.pm
@@ -363,16 +363,16 @@ sub getQuantityAvailable {
=head2 indexContent ( )
-Adding location and eventNumber as a keyword. See WebGUI::Asset::indexContent() for additonal details.
+Adding location and eventNumber as a keyword. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->location.' '.$self->eventNumber);
return $indexer;
-}
+};
diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm
index a1de541..f1f822e 100644
--- a/lib/WebGUI/Asset/Snippet.pm
+++ b/lib/WebGUI/Asset/Snippet.pm
@@ -182,16 +182,16 @@ sub getToolbar {
=head2 indexContent ( )
-Indexing the content of the snippet. See WebGUI::Asset::indexContent() for additonal details.
+Indexing the content of the snippet. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->snippet);
$indexer->setIsPublic(0);
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Story.pm b/lib/WebGUI/Asset/Story.pm
index a0e07aa..067950e 100644
--- a/lib/WebGUI/Asset/Story.pm
+++ b/lib/WebGUI/Asset/Story.pm
@@ -519,11 +519,11 @@ Extend the base class to index Story properties like headline, byline, etc.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->next::method();
+ my $indexer = super();
$indexer->addKeywords($self->headline, $self->subtitle, $self->location, $self->highlights, $self->byline, $self->story, );
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm
index e90f32e..b27a362 100644
--- a/lib/WebGUI/Asset/Template.pm
+++ b/lib/WebGUI/Asset/Template.pm
@@ -492,16 +492,16 @@ sub importAssetCollateralData {
=head2 indexContent ( )
-Making private. See WebGUI::Asset::indexContent() for additonal details.
+Making private. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->namespace);
$indexer->setIsPublic(0);
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/WikiPage.pm b/lib/WebGUI/Asset/WikiPage.pm
index bcd3e61..a212757 100644
--- a/lib/WebGUI/Asset/WikiPage.pm
+++ b/lib/WebGUI/Asset/WikiPage.pm
@@ -301,12 +301,12 @@ Extends the master class to handle indexing the wiki content.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->next::method;
+ my $indexer = super();
$indexer->addKeywords($self->content);
return $indexer;
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Wobject/Article.pm b/lib/WebGUI/Asset/Wobject/Article.pm
index db381f7..5531fd3 100644
--- a/lib/WebGUI/Asset/Wobject/Article.pm
+++ b/lib/WebGUI/Asset/Wobject/Article.pm
@@ -199,7 +199,7 @@ sub getStorageLocation {
=head2 indexContent ( )
-Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additonal details.
+Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additional details.
=cut
diff --git a/lib/WebGUI/Asset/Wobject/Collaboration.pm b/lib/WebGUI/Asset/Wobject/Collaboration.pm
index c6b8200..b42d4a4 100644
--- a/lib/WebGUI/Asset/Wobject/Collaboration.pm
+++ b/lib/WebGUI/Asset/Wobject/Collaboration.pm
@@ -460,7 +460,6 @@ use WebGUI::HTML;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Utility;
-use WebGUI::Asset::Wobject;
use WebGUI::Workflow::Cron;
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/Wobject/Poll.pm b/lib/WebGUI/Asset/Wobject/Poll.pm
index 86c7050..0ccad46 100644
--- a/lib/WebGUI/Asset/Wobject/Poll.pm
+++ b/lib/WebGUI/Asset/Wobject/Poll.pm
@@ -315,15 +315,15 @@ sub getGraphConfig {
=head2 indexContent ( )
-Indexing question and answers. See WebGUI::Asset::indexContent() for additonal details.
+Indexing question and answers. See WebGUI::Asset::indexContent() for additional details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->addKeywords($self->get("question")." ".$self->get("answers"));
-}
+};
#-------------------------------------------------------------------
diff --git a/lib/WebGUI/Asset/_NewAsset.skeleton b/lib/WebGUI/Asset/_NewAsset.skeleton
index 492a311..bde3c76 100644
--- a/lib/WebGUI/Asset/_NewAsset.skeleton
+++ b/lib/WebGUI/Asset/_NewAsset.skeleton
@@ -143,11 +143,11 @@ Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut
-sub indexContent {
+override indexContent => sub {
my $self = shift;
- my $indexer = $self->SUPER::indexContent;
+ my $indexer = super();
$indexer->setIsPublic(0);
-}
+};
#-------------------------------------------------------------------
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment