view release on metacpan or  search on metacpan

lib/Acme/Data/Dumper/Extensions.pm  view on Meta::CPAN

  # Dump array of values with predefined names
  $instance->$_DumpValues( [ values, ... ], [ names, ... ]);

=head3 Arguments

The first argument (required) must be an C<ArrayRef> of values to dump.

This value will B<ALWAYS> be used instead of any instances of C<Values> passed
earlier. Any values previously passed to C<Values> will be preserved.

The second (optional) argument is an C<ArrayRef> of names to use for values.

If this option is omitted, it will behave as if you'd passed C<[]>.

If this option is present, passed values used instead.

t/proof-of-concept.t  view on Meta::CPAN

    $local_plan -= like $rval, qr/xxx/, "DumpValues gives new values";

    $local_plan -=
      is( scalar $bad_instance->Values, 0, "Instance values wiped" );

    $local_plan == 0 or diag explain [ $rval, $bad_instance ];

}
{

    my $bad_instance = Data::Dumper->new( [qw( a b )], [qw( first second )] );
    {
        my $rval = scalar $bad_instance->$_DumpValues( [qw( xxx yyy )] );

        my $local_plan = 2;

        $local_plan -= unlike $rval, qr/first/,
          "DumpValues ignores preset value names";

        $local_plan -= unlike + ( join q[], $bad_instance->Names ), qr/first/,
          "Instance names wiped";