This is no longer used anywhere, and even crashes if you try to call it. Besides, OpenBSD::PackageRepository::Source was removed almost a year ago.
Index: PackageRepositoryList.pm =================================================================== RCS file: /cvs/src/usr.sbin/pkg_add/OpenBSD/PackageRepositoryList.pm,v retrieving revision 1.29 diff -u -p -d -r1.29 PackageRepositoryList.pm --- PackageRepositoryList.pm 3 Feb 2015 10:26:29 -0000 1.29 +++ PackageRepositoryList.pm 23 Jun 2015 21:51:18 -0000 @@ -89,15 +89,4 @@ sub match_locations return []; } -sub print_without_src -{ - my $self = shift; - my @l = (); - for my $repo (@$self) { - next if $repo->isa("OpenBSD::PackageRepository::Source"); - push(@l, $repo->url); - } - return join(':', @l); -} - 1;