diff --git a/.replyrc.pl b/.replyrc.pl --- a/.replyrc.pl +++ b/.replyrc.pl @@ -7,4 +7,22 @@ use Data::Printer { use Path::Tiny; + +# This is extra awkward bc Data::Printer has no introspection of its config. +# These values need to mirror what's set above, or defaults. +my $ddp_show_private = 0; +my $ddp_show_inherited = 1; + +sub ddp_toggle_private { + my $val = ($ddp_show_private ^= 1) ? 'all' : 'public'; + Data::Printer->import({class => {show_methods => $val}}); + $val; +} + +sub ddp_toggle_inherited { + my $val = ($ddp_show_inherited ^= 1) ? 'public' : 'none'; + Data::Printer->import({class => {inherited => $val}}); + $val; +} + 1;