HTTPS Everywhere for Net::Zemanta::Suggest

gistfile1.pl

package Net::Zemanta::Suggest::HTTPS;

use strict;

use base qw( Net::Zemanta::Suggest );

sub suggest {
	my $self = shift;

	my $suggestions = $self->SUPER::suggest(@_);

	my $links = $suggestions->{'markup'}->{'links'};
	for my $link (@$links) {
		my $targets = $link->{'target'};
		for my $target (@$targets) {
			$target->{'url'} =~ s/^http:\/\/([^\@:\/]+\.)?(wikipedia\.org\/)/https:\/\/$1$2/;
		}
	}

	return $suggestions;
}

1;