use strict;
use warnings;

use Data::Dumper;
use PerlMonks::Mechanized;

# pass username and password to 'new'
my $pm_obj = PerlMonks::Mechanized->new( 'xxxx', 'xxxx' );

my $root_node_id = 466016; # node used for example
my @node_ids = ( $root_node_id, $root_node_id + 1 );

#***********************************************************

print "PM object:\n";
print Dumper( $pm_obj );

{
	print "user_stats:\n";
	my $data = $pm_obj->user_stats( showall => 1 );
	print Dumper( $data );
}

print "PM object:\n";
print Dumper( $pm_obj );

foreach my $method qw( threaded_ids
					   thread_list

					   node_info
					   node_content )
{
	print "$method:\n";
	my $data = $pm_obj->$method( $root_node_id );
	print Dumper( $data );
}

foreach my $method qw( node_info
					   node_titles )

{
	print "$method:\n";
	my $data = $pm_obj->$method( @node_ids );
	print Dumper( $data );

}