The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Facebook::Graph::Cmdline;
{
  $Facebook::Graph::Cmdline::VERSION = '0.123482';
}

#ABSTRACT: Extends Facebook::Graph with embedded HTTP for Oauth and token saving

use Any::Moose;
use v5.10;

extends 'Facebook::Graph';
with 'Facebook::Graph::Cmdline::Role::HTTPAccessToken';

#Is there a better way to do MooseX vs MouseX 'with' loading?
#can import with "use Any::Moose 'X::SimpleConfig'" but that doesn't
#provide the action of "with," Mo*se::Util::apply_all_roles()
if (Any::Moose::moose_is_preferred)
{
    with 'MooseX::SimpleConfig';
    with 'MooseX::Getopt';
}
else
{
    with 'MouseX::SimpleConfig';
    with 'MouseX::Getopt';
}
# requires provided by ::SimpleConfig
with 'Facebook::Graph::Cmdline::Role::SaveAccessToken';

no Any::Moose;
__PACKAGE__->meta->make_immutable;

__END__
=pod

=head1 NAME

Facebook::Graph::Cmdline - Extends Facebook::Graph with embedded HTTP for Oauth and token saving

=head1 VERSION

version 0.123482

=head1 AUTHOR

Andrew Grangaard <spazm@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Andrew Grangaard.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut