php util bugfixes

- fixed bug where either a comment or class constant could infer
  the wrong class type

Author: wickedOne

lib/GPH.pm

@@ -3,7 +3,7 @@ package GPH;
 use strict;
 use warnings FATAL => 'all';
 
-our $VERSION = '1.2.0';
+our $VERSION = '1.2.1';
 
 1;
 

lib/GPH/Util/Php.pm

@@ -16,17 +16,20 @@ sub new {
 
 sub types {
     my ($self, @files) = @_;
-    my ($fh, $pattern);
+    my ($fh, $pattern, $constant);
 
     foreach my $file (@files) {
         chomp $file;
         next unless $file =~ '[/]{0,}([^/]+)\.php$';
         open($fh, '<', getcwd() . '/' . $file) or die "unable to open file $file : $!";
 
         $pattern = "[ ]{0,}([^ ]+) " . $1 . "(?:[ :]|\$){1,}";
+        $constant = $1 . "::class";
 
         while(<$fh>) {
             chomp $_;
+            next if $_ =~ /^[\* ]\*/; #ignore comments
+            next if $_ =~ $constant;
             next unless $_ =~ $pattern;
             my $type = ($1 ne 'enum') ? $1 : $self->resolveEnum(<$fh>);
 

t/share/Php/Bar.php

@@ -2,6 +2,9 @@
 
 namespace share\Php;
 
+/**
+ * this comment about Bar should be ignored
+ */
 abstract class Bar
 {
 

t/share/Php/Foo.php

@@ -1,5 +1,7 @@
 <?php
 
+trigger_error(sprintf('%s should not be used, use %s instead', Foo::class, Bar::class));
+
 final readonly class Foo
 {