File tree Expand file tree Collapse file tree 2 files changed +17
-1
lines changed Expand file tree Collapse file tree 2 files changed +17
-1
lines changed Original file line number Diff line number Diff line change @@ -3029,7 +3029,7 @@ sub parse_version {
3029
3029
next if $inpod || / ^\s *#/ ;
3030
3030
chop ;
3031
3031
next if / ^\s *(if|unless|elsif)/ ;
3032
- if ( m { ^ \s * (?:package|class) \s + \w [\w\:\' ]* \s + (v?[0-9._]+) \s * (;|\{ ) } x ) {
3032
+ if ( m { ^ \s * (?:package|class) \s + \w [\w\:\' ]* \s + (v?[0-9._]+) \s * (:| ;|\{ ) } x ) {
3033
3033
no warnings;
3034
3034
$result = $1 ;
3035
3035
}
Original file line number Diff line number Diff line change @@ -123,6 +123,22 @@ if ( "$]" >= 5.038 ) {
123
123
$versions {' class Foo::Bar v1.2.3 { }' } = ' v1.2.3' ;
124
124
$versions {" class Foo'Bar 1.23 { }" } = ' 1.23' ;
125
125
$versions {' class Foo 1.230 { }' } = ' 1.230' ;
126
+
127
+ $versions {' class Foo 1.23 :isa(Bar);' } = ' 1.23' ;
128
+ $versions {' class Foo::Bar 1.23 :isa(Bar);' } = ' 1.23' ;
129
+ $versions {' class Foo v1.2.3 :isa(Bar);' } = ' v1.2.3' ;
130
+ $versions {' class Foo::Bar v1.2.3 :isa(Bar);' } = ' v1.2.3' ;
131
+ $versions {' class Foo::Bar v1.2.3 :isa(Bar);' } = ' v1.2.3' ;
132
+ $versions {" class Foo'Bar 1.23 :isa(Bar);" } = ' 1.23' ;
133
+ $versions {' class Foo 1.230 :isa(Bar);' } = ' 1.230' ;
134
+
135
+ $versions {' class Foo 1.23 :isa(Bar) { }' } = ' 1.23' ;
136
+ $versions {' class Foo::Bar 1.23 :isa(Bar) { }' } = ' 1.23' ;
137
+ $versions {' class Foo v1.2.3 :isa(Bar) { }' } = ' v1.2.3' ;
138
+ $versions {' class Foo::Bar v1.2.3 :isa(Bar) { }' } = ' v1.2.3' ;
139
+ $versions {' class Foo::Bar v1.2.3 :isa(Bar) { }' } = ' v1.2.3' ;
140
+ $versions {" class Foo'Bar 1.23 :isa(Bar) { }" } = ' 1.23' ;
141
+ $versions {' class Foo 1.230 :isa(Bar) { }' } = ' 1.230' ;
126
142
}
127
143
128
144
if ( " $] " < 5.012 ) {
You can’t perform that action at this time.
0 commit comments