Yet Another CPAN Grep

Socialtext-Wikrad ( L/LU/LUKEC/Socialtext-Wikrad-0.07.tar.gz, LUKEC, 2010; MetaCPAN )

Socialtext-Wikrad/lib/Socialtext/Wikrad/Window.pm ( view source; MetaCPAN )

Y_ENTER/;
use Socialtext::Wikrad qw/$App/;
use Socialtext::Resting;
use Socialtext::EditPage;
use JSON;
use Data::Dumper;

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);

ta ...');
    $r->accept('application/json');
    my $page_name = $App->get_page;
    my $json_text = $r->get_page($page_name);
    my $page_data = jsonToObj($json_text);
    $App->{cui}->nostatus;