view release on metacpan or  search on metacpan

t/608_bug_website_displayed.t  view on Meta::CPAN

# Write nodes with various lengths of websites, both http and https versions.
my %protocols = ( "http" => "", "https" => " Secure" );
foreach my $prefix ( keys %protocols ) {
  my $postfix = $protocols{$prefix};

  $guide->wiki->write_node( "South Croydon Station$postfix",
  "A sleepy main-line station in what is arguably the nicest part of Croydon.",
   undef, { website => "$prefix://example.com/" } )
     or die "Couldn't write node";
  $guide->wiki->write_node( "North Croydon Station$postfix",
  "A busy main-line station in what is arguably the furthest North part of "
  . "Croydon.", undef, { website => "$prefix://longer.example.com/asdfasdf" } )
    or die "Couldn't write node";
  $guide->wiki->write_node( "East Croydon Station$postfix",
  "A busy main-line station that actually exists.", undef,
  { website => "$prefix://www.example.com/foo" } )
    or die "Couldn't write node";
  $guide->wiki->write_node( "West Croydon Station$postfix",
  "Another main-line station that actually exists.", undef,
  { website => "$prefix://www.example.com/bar/" } )
    or die "Couldn't write node";
}

my %tt_vars;