view release on metacpan or  search on metacpan

lib/App/AutoCRUD/View/Dumper.pm  view on Meta::CPAN

package App::AutoCRUD::View::Dumper;

use 5.010;
use strict;
use warnings;

use Moose;
use namespace::autoclean;
use Data::Dumper;
extends 'App::AutoCRUD::View';



sub render {
  my ($self, $data, $context) = @_;

  local $Data::Dumper::Indent = 1;
  my $output = Dumper $data;

lib/App/AutoCRUD/View/Plain.pm  view on Meta::CPAN

package App::AutoCRUD::View::Plain;

use 5.010;
use strict;
use warnings;

use Moose;
use namespace::autoclean;
use Data::Dumper;
extends 'App::AutoCRUD::View';


sub render {
  my ($self, $output, $context) = @_;

  return [200, ['Content-type' => 'text/plain'], [$output] ];
}