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 1