The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Perl::RT2Github - Given RT ticket number, find corresponding Github issue

SYNOPSIS

    use Perl::RT2Github;

    my $self = Perl::RT2Github->new();

    my $github_url      = $self->get_github_url( 125740 );
    my $github_urls_ref = $self->get_github_urls( 125740, 133776 );

    my $github_id       = $self->get_github_id( 125740 );
    my $github_ids_ref  = $self->get_github_ids( 125740, 133776 );

DESCRIPTION

With the recent move of Perl 5 issue tracking from rt.cpan.org to github.com, we need to be able to take a list of RT ticket numbers and look up the corresponding github issue IDs and URLs. This module is a first attempt at doing so.

METHODS

new()

  • Purpose

    Perl::RT2Github constructor.

  • Arguments

        my $self = Perl::RT2Github->new({ timeout => 120});

    Hash reference; optional. Currently, the only possible element in this hashref is timeout, whose value defaults to 120 seconds.

  • Return Value

    Perl::RT2Github object.

get_github_url()

  • Purpose

    Get github.com URL for old RT ticket number.

  • Arguments

        my $github_url = $self->get_github_url( 125740 );

    A single rt.perl.org ticket ID, which must be all-numeric.

  • Return Value

    String holding URL for corresponding github.com issue.

get_github_urls()

  • Purpose

    Get github.com URLs for multiple old RT ticket numbers.

  • Arguments

        my $got = $self->get_github_urls( 125740, 200895 );

    List of rt.perl.org ticket IDs.

  • Return Value

    Hash reference.

get_github_id()

  • Purpose

    Get github.com issue number for old RT ticket number.

  • Arguments

        my $github_id = $self->get_github_id( 125740 );

    A single rt.perl.org ticket ID, which must be all-numeric.

  • Return Value

    String holding github.com issue number.

get_github_ids()

  • Purpose

    Get github.com ID numbers for multiple old RT ticket numbers.

  • Arguments

        my $github_ids_ref  = $self->get_github_ids( 125740, 133776 );

    List of RT ticket numbers, which must each be all numeric.

  • Return Value

    Hash reference.

BUGS

None so far.

CONTRIBUTING

The author prefers patches over pull requests on github.com. To report bugs or otherwise contribute to the development of this module, please attach a patch (e.g., output of git format-patch) to either (a) an email sent to bug-Perl-RT2Github@rt.cpan.orgor use the web interface at https://rt.cpan.org/Ticket/Create.html?Queue=Perl-RT2Github.

AUTHOR

    James E Keenan
    CPAN ID: JKEENAN
    jkeenan@cpan.org
    http://thenceforward.net/perl

ACKNOWLEDGMENTS

Implementation suggestions from Dagfinn Ilmari Mannsåker and Dan Book. Correction of error in Changes from Graham Knop. Patch to Makefile.PL from Mohammad S Anwar.

COPYRIGHT

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

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

perl(1).