/* object.asc -- written by Alexis WILKE for Made to Order Software, Ltd. (c) 2005-2006 */
/*
Copyright (c) 2005-2006 Made to Order Software, Ltd.
Permission is hereby granted, free of charge, to a
package Module::Pluggable::Object;
use strict;
use File::Find ();
use File::Basename;
use File::Spec::Functions qw(splitdir catdir curdir catfile abs2rel);
use Carp qw(croak carp);
use Devel::InnerPa
// create a new car object
var car = new Object();
// add some properties to the car object...
car.maker = "Dodge";
car.model = "Viper";
car.color = "Silver";
// display all the car object's
// object.c
varargs int getoid(object ob)
{
int id;
if (!ob) ob = previous_object();
sscanf(file_name(ob), "%*s#%d", id);
return id;
}
// Get the owner of a file. Used by log_error() i
