lib/MojoFacets/Debug.pm

   1 package MojoFacets::Debug;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 use Data::Dump qw(dump);
   9 use Storable;
  10
  11 sub index {
  12         my $self = shift;
  13
  14         $self->render(
  15                 loaded => $MojoFacets::Data::loaded,
  16         );
  17 }
  18
  19 sub _ref_size {
  20         my ( $self, $ref ) = @_;
  21         return unless ref($ref);
  22         open(my $fh, '|-', 'cat > /dev/null');
  23         Storable::store_fd $ref, $fh;
  24         tell($fh);
  25 }
  26
  27 sub loaded {
  28         my $self = shift;
  29
  30         my $path = $self->session('path');
  31         my $key  = $self->param('id');
  32
  33         my $loaded = $MojoFacets::Data::loaded->{$path}->{$key} || die "no $path $key in loaded";
  34
  35         $self->render(
  36                 loaded => $loaded,
  37         );
  38 }
  39
  40 1