Permalink
Browse files

No longer built from Net::Twitter :(

With the v1.1 release, Lite is no longer built from Net::Twitter. Sigh.
  • Loading branch information...
1 parent a5f8e8f commit 7878f5140b6f21decd55d79a17018188b82f5d44 @semifor committed Jan 17, 2014
Showing with 0 additions and 1,413 deletions.
  1. +0 −49 src/build.pl
  2. +0 −1,364 src/net-twitter-lite.tt2
View
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-use warnings;
-use strict;
-use Memoize;
-
-use Net::Twitter;
-use Template;
-
-my ($version, $input, $output) = @ARGV;
-
-memoize('get_methods_for');
-
-my $tt = Template->new;
-$tt->process($input, {
- VERSION => $version,
- get_methods_for => \&get_methods_for,
- get_base_url_for => \&get_base_url_for,
- },
- $output,
-) || die $tt->error;
-
-my %seen;
-sub get_methods_for {
- my ( $api, $filter ) = @_;
- $filter ||= '.';
-
- my $filter_re = qr/$filter/;
-
- my $nt = Net::Twitter->new(traits => [ "API::$api" ]);
-
- return
- sort { $a->{name} cmp $b->{name} }
- grep { $_->{name} =~ $filter_re }
- grep {
- $_->isa('Net::Twitter::Meta::Method')
- }
- map {
- $_->isa('Class::MOP::Method::Wrapped') ? $_->get_original_method : $_
- } $nt->meta->get_all_methods;
-}
-
-sub get_base_url_for {
- my $api = shift;
-
- my $class = "Net::Twitter::Role::API::$api";
- my $nt = Net::Twitter::Core->new_with_traits(traits => ["API::$api"]);
-
- return $class->_base_url($nt);
-}
Oops, something went wrong.

0 comments on commit 7878f51

Please sign in to comment.