WWW-Workflowy

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "LWP" : "0.01",
            "LWP::Protocol::https" : "0.01",
            "PadWalker" : "0.01",
            "autobox" : "0.01"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.6"
}

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: WWW-Workflowy
no_index:
  directory:
    - t
    - inc
requires:
  LWP: '0.01'
  LWP::Protocol::https: '0.01'
  PadWalker: '0.01'
  autobox: '0.01'
version: '0.6'

Makefile.PL  view on Meta::CPAN

use 5.010000;
use ExtUtils::MakeMaker;

WriteMakefile(
    NAME              => 'WWW::Workflowy',
    VERSION_FROM      => 'lib/WWW/Workflowy.pm',
    PREREQ_PM         => {
        PadWalker => 0.01, 
        LWP       => 0.01,
        autobox   => 0.01,
        'LWP::Protocol::https' => 0.01,
    },
    ABSTRACT_FROM  => 'lib/WWW/Workflowy.pm',
    AUTHOR         => 'Scott Walters <scott@slowass.net>',
);

lib/WWW/Workflowy.pm  view on Meta::CPAN

=head2 get_children

Takes a node id.  Returns an arrayref of a node's children if it has children, or false otherwise.

=cut

package autobox::Closure::XAttributes::Methods;

use base 'autobox';
use B;
use PadWalker;

sub AUTOLOAD :lvalue {
    my $code = shift;
    (my $method = our $AUTOLOAD) =~ s/.*:://;
    return if $method eq 'DESTROY';

    # we want the scalar unless the method name already a sigil
    my $attr = $method  =~ /^[\$\@\%\&\*]/ ? $method : '$' . $method;

    my $closed_over = PadWalker::closed_over($code);

    # is there a method of that name in the package the coderef was created in?
    # if so, run it.
    # give methods priority over the variables we close over.
    # XXX this isn't lvalue friendly, but sdw can't figure out how to make it be and not piss off old perls.

    my $stash = B::svref_2object($code)->STASH->NAME;
    if( $stash and $stash->can($method) ) {
        # t/003-live-test.t .............. Can't modify non-lvalue subroutine call at lib/WWW/Workflowy.pm line 170. in perl 5.14.2
        # goto apparently cheats lvalue detection; cheating detection is adequate for our purposes.