Only call _parse_version_expression() for lines that contain VERSION

This saves a method call for each source line that does not contain
'VERSION', yielding a whopping 30% speedup for _parse_fh().

diff --git a/lib/Module/Metadata.pm b/lib/Module/Metadata.pm
index 4fad0f3..a7e7234 100644 (file)
--- a/lib/Module/Metadata.pm
+++ b/lib/Module/Metadata.pm
@@ -488,7 +488,9 @@ sub _parse_fh {
 
       # parse $line to see if it's a $VERSION declaration
       my( $vers_sig, $vers_fullname, $vers_pkg ) =
-         $self->_parse_version_expression( $line );
+          ($line =~ /VERSION/)
+              ? $self->_parse_version_expression( $line )
+              : ();
 
       if ( $line =~ $PKG_REGEXP ) {
         $pkg = $1;