#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use strict;
use utf8;
use File::Spec;
#use AI::MicroStructure;
use JSON::XS;
use Data::Printer;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';


BEGIN 
{
`IFS_BAK=\$IFS;
IFS=\$'\n'`;



}
# Library path bootstrap
my @path;
if (defined $ENV{PAR_TEMP}) { # See PAR.pm
	@path = ($ENV{PAR_TEMP}, 'inc');
}
else {
	my $binary = File::Spec->rel2abs($0);
	my ($vol, $dirs, undef) = File::Spec->splitpath($binary);
	@path = ($vol, $dirs, File::Spec->updir);
}
my $libdir = File::Spec->catdir(@path, 'lib');
unshift @INC, $libdir if -d $libdir;

# Load modules needed in this script

eval q/
	use AI::MicroStructure::Cache;
	use AI::MicroStructure::Relations;
/;
die $@ if $@;


my $cache = {};
my $new = AI::MicroStructure::Relations->new();
$new->{scale} = 0.1;
#my $page_iter = iterate(\&gofor,[map{$_=sprintf("http://en.wikipedia.org/wiki/%s",$_)}@ARGV]);
#print Dumper [iterate(\&fetch,[$urls[0]])];


if(!@ARGV) {
push @ARGV,$_ for qw("Lie Conspiracy Politics President NWO International_relations War Crime Freedom Weapon Ufo");
}

foreach(@ARGV)
{
  $new->gofor($_);#
}


#die(ref $new->{storage});
$new->{storage}->{data} = $new->inspect($new->{scale});

my $sense = JSON::XS->new->pretty(0)->allow_blessed($new->{storage});

foreach(sort {$a <=> $b} keys %{$new->{storage}->{related}}){

print join("\n", @{ $new->{storage}->{related}->{$_} });

}

`IFS=\$IFS_BAK;`;


#p $new->{storage}->{data};



1;
__END__


# ABSTRACT: AI::MicroStructure   Starts some relation aggregation supposed to grow to a server

=head1 NAME

  AI::MicroStructure::Deamon

=head1 DESCRIPTION

  Creates a session to work relations

=head1 SYNOPSIS    
  
  perl Deamon.pm ufo secret
  
=head1 AUTHOR

  Hagen Geissler <santex@cpan.org>

=head1 COPYRIGHT AND LICENCE

  Hagen Geissler <santex@cpan.org>

=head1 SUPPORT AND DOCUMENTATION

  ☞ [sample using concepts](http://quantup.com)

  ☞ [PDF info on my works](https://github.com/santex)

=head1 SEE ALSO

  AI-MicroStructure
  AI-MicroStructure-Cache
  AI-MicroStructure-Deamon
  AI-MicroStructure-Relations
  AI-MicroStructure-Concept
  AI-MicroStructure-Data
  AI-MicroStructure-Driver
  AI-MicroStructure-Plugin-Pdf
  AI-MicroStructure-Plugin-Twitter
  AI-MicroStructure-Plugin-Wiki