Allow zero byte documents to return location data

Author: wchristian

Changes

@@ -1,6 +1,7 @@
 Revision history for Perl extension PPI
 
 {{$NEXT}}
+	- Allow zero byte documents to have a location
 
 1.281   2024-12-27 14:44:47Z
 	Summary:

lib/PPI/Document.pm

@@ -658,14 +658,10 @@ sub index_locations {
 
 		# Found the first Token without a location
 		# Calculate the new location if needed.
-		if ($_) {
-			$location =
-				$self->_add_location( $location, $tokens[$_ - 1], \$heredoc );
-		} else {
-			my $logical_file =
-				$self->can('filename') ? $self->filename : undef;
-			$location = [ 1, 1, 1, 1, $logical_file ];
-		}
+		$location =
+			$_
+		  ? $self->_add_location( $location, $tokens[ $_ - 1 ], \$heredoc )
+		  : $self->_default_location;
 		$first = $_;
 		last;
 	}
@@ -687,6 +683,17 @@ sub index_locations {
 	1;
 }
 
+sub _default_location {
+	my ($self) = @_;
+	my $logical_file = $self->can('filename') ? $self->filename : undef;
+	return [ 1, 1, 1, 1, $logical_file ];
+}
+
+sub location {
+	my ($self) = @_;
+	return $self->SUPER::location || $self->_default_location;
+}
+
 sub _add_location {
 	my ($self, $start, $Token, $heredoc) = @_;
 	my $content = $Token->{content};

t/03_document.t

@@ -4,7 +4,7 @@
 
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 19 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 22 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 );
 
 use File::Spec::Functions qw( catfile );
 use PPI ();
@@ -61,9 +61,7 @@ NEW_EMPTY: {
 	my $string = $doc1->serialize;
 	is( $string, '', '->serialize ok' );
 
-	# Check for warnings on null document index_locations
-	{
-		local $^W = 1;
-		$doc1->index_locations();
-	}
+	ok $doc1->location;
+	ok $doc2->location;
+	ok $doc3->location;
 }