# PrintObject.pm
# Author: Noah Friedman <friedman@splode.com>
# Created: 1999-12-28
# Public domain.

# $Id: PrintObject.pm,v 1.4 2000/02/11 11:22:50 friedman Exp $

# Commentary:
# Code:

package NF::PrintObject;
use Data::Dumper;

use strict;

use Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT_OK   = qw(print_object);


sub print_object ($$)
{
  my ($name, $obj) = @_;
  my ($dump) = Data::Dumper->new ([$obj], [$name]);

  $dump->Useqq (1);
  $dump->Indent (1);
  $dump->Pad("$0: ");

  print STDERR $dump->Dump;
}

1;