package Net::StackExchange2::V2::Badges; use 5.006; use strict; use warnings FATAL => 'all'; use Sub::Name qw(subname); use Net::StackExchange2::V2::Common qw(query no_params one_param); our $VERSION = "0.05"; sub new { my ($class, $params) = @_; my $self = $params; bless $self, $class; *badges_all = subname( "Net::StackExchange2::V2::Badges::badges_all", no_params("badges"), ); *badges = subname( "Net::StackExchange2::V2::Badges::badges", one_param("badges"), ); *badges_name = subname( "Net::StackExchange2::V2::Badges::badges_name", no_params("badges/name"), ); *badges_recipients_all = subname( "Net::StackExchange2::V2::Badges::badges_recipients_all", no_params('badges/recipients'), ); *badges_recipients = subname( "Net::StackExchange2::V2::Badges::badges_recipients", one_param("badges","recipients") ); *badges_tags = subname( "Net::StackExchange2::V2::Badges::badges_tags", no_params("badges/tags"), ); return $self; } 1; #END of Net::StackExchange2::V2::Badges __END__ =head1 NAME Net::StackExchange2::V2::Badges - Badges =head1 VERSION Version 0.01 =cut =head1 SYNOPSIS =head1 Description Access Tokens =head2 Methods =head3 method1 =head1 AUTHOR Gideon Israel Dsouza, C<< >> =head1 BUGS See L. =head1 SUPPORT See L. =head1 LICENSE AND COPYRIGHT Copyright 2013 Gideon Israel Dsouza. This library is distributed under the freebsd license: L See FreeBsd in TLDR : L