<commit_before>#!/usr/bin/perl
#
# Method Test Login
#

=pod

=head1 NAME

flickr_method_test_echo.pl

a login example for using either OAuth or Old School Flickr

=cut

use warnings;
use strict;
use Flickr::API;
use Getopt::Long;


=pod

=head1 DESCRIPTION

This script uses either the Flickr or OAuth parameters to call
the flickr.test.login method.

=head1 USAGE

  flickr_method_test_login.pl --use_api=[oauth, flickr] \
    --key="24680beef13579feed987654321ddcc6" \
    --secret="de0cafe4feed0242" \
    --token="7<PASSWORD>" \
   [--token_secret="33beef1face212d"]

Depending on what you specify with B<--use_api> the flickr.test.login
call will use the appropriate parameter set. The B<--token_secret> is
used by OAuth, but not by the original Flickr.


=cut

my $config = {};
my $api;

my %args;

GetOptions (
    $config,
    'use_api=s',
    'key=s',
    'secret=s',
    'token=s',
    'token_secret=s',
);


=head1 CALL DIFFERENCES

 if ($config->{use_api} =~ m/flickr/i) {

     $api = Flickr::API->new({
         'key'        => $config->{key},
         'secret'     => $config->{secret},
         'auth_token' => $config->{token},
      });

    $args{'api_key'}    = $config->{key};
    $args{'auth_token'} = $config->{token};
<commit_msg>clean up a conflict<commit_after>#!/usr/bin/perl
#
# Method Test Login
#

=pod

=head1 NAME

flickr_method_test_echo.pl

a login example for using either OAuth or Old School Flickr

=cut

use warnings;
use strict;
use Flickr::API;
use Getopt::Long;


=pod

=head1 DESCRIPTION

This script uses either the Flickr or OAuth parameters to call
the flickr.test.login method.

=head1 USAGE

  flickr_method_test_login.pl --use_api=[oauth, flickr] \
    --key="24680beef13579feed987654321ddcc6" \
    --secret="de0cafe4feed0242" \
    --token="72157beefcafe3582-<PASSWORD>" \
   [--token_secret="33beef1face212d"]

Depending on what you specify with B<--use_api> the flickr.test.login
call will use the appropriate parameter set. The B<--token_secret> is
used by OAuth, but not by the original Flickr.


=cut

my $config = {};
my $api;

my %args;

GetOptions(
    $config,
    'use_api=s',
    'key=s',
    'secret=s',
    'token=s',
    'token_secret=s',
);


=head1 CALL DIFFERENCES

 if ($config->{use_api} =~ m/flickr/i) {

     $api = Flickr::API->new({
         'key'        => $config->{key},
         'secret'     => $config->{secret},
         'auth_token' => $config->{token},
      });

    $args{'api_key'}    = $config->{key};
    $args{'auth_token'} = $config->{token};

{'fraction_non_alphanumeric': 0.1504739336492891, 'fraction_numerical': 0.03238546603475513, 'mean_word_length': 3.2216666666666667, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 29, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4652075', 'n_tokens_mistral': 1019, 'n_tokens_neox': 943, 'n_words': 231}