File Coverage

blib/lib/NNexus/Index/Mathworld.pm

Criterion	Covered	Total	%
statement	28	37	75.6
branch	6	12	50.0
condition	1	3	33.3
subroutine	8	11	72.7
pod	5	7	71.4
total	48	70	68.5

# /=====================================================================\ #
# | NNexus Autolinker                                                   | #
# | Indexing Plug-in, MathWorld.wolfram.com domain                      | #
# |=====================================================================| #
# | Part of the Planetary project: http://trac.mathweb.org/planetary    | #
# |  Research software, produced as part of work done by:               | #
# |  the KWARC group at Jacobs University                               | #
# | Copyright (c) 2012                                                  | #
# | Released under the MIT License (MIT)                                | #
# |---------------------------------------------------------------------| #
# | Adapted from the original NNexus code by                            | #
# |                                  James Gardner and Aaron Krowne     | #
# |---------------------------------------------------------------------| #
# | Deyan Ginev                   #_#     | #
# | http://kwarc.info/people/dginev                            (o o)    | #
# \=========================================================ooo==U==ooo=/ #
package NNexus::Index::Mathworld;
use warnings;
use strict;
use base qw(NNexus::Index::Template);

sub domain_root { "http://mathworld.wolfram.com/letters/"; }
sub domain_base { "http://mathworld.wolfram.com" }
sub candidate_links {
  my ($self) = @_;
  my $url = $self->current_url;
  my $dom = $self->current_dom;
  # Only a letter or a single-slashed path to a concept
  my $directory = $dom->find('#directory')->[0];
  $directory = $dom->find('#directorysix')->[0] unless $directory; # Top level?
  return [] unless $directory; # Only index the alphabetical indices
  my @next_jobs = $directory->find('a')->each;
  @next_jobs = map { $self->domain_base . $_ } grep {defined } map {$_->{href}} @next_jobs;
  \@next_jobs; }

sub index_page {
  my ($self) = @_;
  my $url = $self->current_url;
  return [] unless $self->leaf_test($url);
  my $dom = $self->current_dom;
  # TODO: Support multiple MSC categories in the same page, not only [0]
  my $msc = $dom->find(':root > head > meta[scheme="MSC_2000"]');
  my @categories = $msc->map(sub{ $_->attr('content')})->each if $msc;
  @categories = ('XX-XX') unless @categories;

  my $title = $dom->find(':root > head > meta[name="DC.Title"]')->[0];
  my $name = $title && $title->attr('content');
  return $name ?
     [{
      url=>$url,
      concept=>$name,
      categories=>\@categories,
      }] : []; }

sub depth_limit {10;}
sub request_interval { 12; } # We'll sleep manually extra for the GET requests on the letters index
sub leaf_test { $_[1] !~ /letters/ }
1;
__END__