Skip to content

Commit

Permalink
RT #90792: PPI::XSAccessor overwrites indexing of actual source modul…
Browse files Browse the repository at this point in the history
…es on CPAN

This commits hides the packages in XSAccessor from the CPAN indexer and
should thus enable metacpan to link docs and source of PPI modules
correctly.
  • Loading branch information
wchristian committed Dec 10, 2013
1 parent e0e4381 commit 4158513
Showing 1 changed file with 28 additions and 14 deletions.
42 changes: 28 additions & 14 deletions lib/PPI/XSAccessor.pm
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,8 @@ BEGIN {

# Packages are implemented here in alphabetical order

package PPI::Document;
package #hide from indexer
PPI::Document;

use Class::XSAccessor
replace => 1,
Expand All @@ -32,23 +33,26 @@ use Class::XSAccessor
'scope'
];

package PPI::Document::File;
package #hide from indexer
PPI::Document::File;

use Class::XSAccessor
replace => 1,
getters => {
filename => 'filename',
};

package PPI::Document::Fragment;
package #hide from indexer
PPI::Document::Fragment;

use Class::XSAccessor
replace => 1,
false => [
'scope',
];

package PPI::Document::Normalized;
package #hide from indexer
PPI::Document::Normalized;

use Class::XSAccessor
replace => 1,
Expand All @@ -58,47 +62,53 @@ use Class::XSAccessor
'functions' => 'functions',
};

package PPI::Element;
package #hide from indexer
PPI::Element;

use Class::XSAccessor
replace => 1,
true => [
'significant',
];

package PPI::Exception;
package #hide from indexer
PPI::Exception;

use Class::XSAccessor
replace => 1,
getters => {
message => 'message',
};

package PPI::Node;
package #hide from indexer
PPI::Node;

use Class::XSAccessor
replace => 1,
false => [
'scope',
];

package PPI::Normal;
package #hide from indexer
PPI::Normal;

use Class::XSAccessor
replace => 1,
getters => {
'layer' => 'layer',
};

package PPI::Statement;
package #hide from indexer
PPI::Statement;

use Class::XSAccessor
replace => 1,
true => [
'__LEXER__normal',
];

package PPI::Statement::Compound;
package #hide from indexer
PPI::Statement::Compound;

use Class::XSAccessor
replace => 1,
Expand All @@ -109,23 +119,26 @@ use Class::XSAccessor
'__LEXER__normal',
];

package PPI::Statement::Data;
package #hide from indexer
PPI::Statement::Data;

use Class::XSAccessor
replace => 1,
false => [
'_complete',
];

package PPI::Statement::End;
package #hide from indexer
PPI::Statement::End;

use Class::XSAccessor
replace => 1,
true => [
'_complete',
];

package PPI::Statement::Given;
package #hide from indexer
PPI::Statement::Given;

use Class::XSAccessor
replace => 1,
Expand All @@ -136,7 +149,8 @@ use Class::XSAccessor
'__LEXER__normal',
];

package PPI::Token;
package #hide from indexer
PPI::Token;

use Class::XSAccessor
replace => 1,
Expand Down

0 comments on commit 4158513

Please sign in to comment.