#!/usr/bin/perl

use strict;
use warnings;

use Config::Simple;
use Flickr::API;

use XML::Parser::Lite::Tree::XPath;

my $cfg = new Config::Simple('FlickrAuthenticate.ini');

my $flickr_api_key = $cfg->param('Flickr.API_KEY');
my $flickr_secret = $cfg->param('Flickr.API_SHARED_SECRET');
my $flickr_email = $cfg->param('Flickr.email');
my $flickr_password = $cfg->param('Flickr.password');

my $api = new Flickr::API({'key'    => $flickr_api_key,
                           'secret' => $flickr_secret});

my $response = $api->execute_method('flickr.auth.getFrob', {
            api_key => $flickr_api_key } );



my $xpath = new XML::Parser::Lite::Tree::XPath($response->{tree});
my @nodes = $xpath->select_nodes('/frob');

use Data::Dumper;
print Dumper($xpath);
print Dumper(\@nodes);
print Dumper($nodes[0]->{children});
print Dumper($nodes[0]->{self});