Windows Loses Ground With Developers Slashdot - 20 minutes ago Linux stands at almost 12%, up from 8% a year earlier. The article says that Evans Data collected information on Mac and Unix development but did not ...
I have a user that runs a menu driven application, is there a way to see what scripts this application is executing in the back ground?
OS=AIX 4.3 (1 Reply)
I have a script "a" running in background. From script "a" i will kick off script "b" which will also be in background. Is this possible. And actually what i want is, In script "b" when i do ps -ef, script "a" should not be seen.
Current "a" script
----
---
----
nohup b
exit
current... (1 Reply)
Hi,
Test1.ksh
#! /bin/ksh
for i in $*
do
#echo "$i"
ksh test2.ksh $i &
done
test2.ksh
#! /bin/ksh
sleep 5s
echo "From Test 1 ==> $1"
exit 0;
I am executing as follows:
ksh test1.ksh a b c (10 Replies)
Does anyone know any good tutorials or books which basically start you off by creating a partition, sticking a Linux kernel on there and then booting it to launch some random binary? Then incrementally adds to it until you have something like a full system?
Essentially I want to see how a Unixy... (2 Replies)
Class::Default(3pm) User Contributed Perl Documentation Class::Default(3pm)NAME
Class::Default - Static calls apply to a default instantiation
SYNOPSIS
# Create the defaulted class
package Foo::Base;
use base 'Class::Default';
sub new { bless {}, $_[0] }
sub show {
my $self = shift->_self;
"$self";
}
# Do something to the default object
package main;
print Foo::Bar->show;
# Prints 'Foo::Bar=HASH(0x80d22f8)'
DESCRIPTION
Class::Default provides a mechanism to allow your class to take static method calls and apply it to a default instantiation of an object.
It provides a flexibility to an API that allows it to be used more confortably in different situations.
A good example of this technique in use is CGI.pm. When you use a static method, like "CGI-"header>, your call is being applied to a
default instantiation of a CGI object.
This technique appears to be especially usefull when writing modules that you want to be used in either a single use or a persistant envi-
ronment. In a CGI like environment, you want the simplicity of a static interface. You can call "Class-"method> directly, without having to
pass an instantiation around constantly.
USING THE MODULES
Class::Default provides a couple of levels of control. They start with simple enabling the method to apply to the default instantation, and
move on to providing some level of control over the creation of the default object.
Inheriting from Class::Default
To start, you will need to inherit from Class::Default. You do this in the normal manner, using something like "use base 'Class::Default'",
or setting the @ISA value directly. "Class::Default" does not have a default constructor or any public methods, so you should be able to
use it a multiple inheritance situation without any implications.
Making method work
To make your class work with Class::Default you need to make a small adjustment to each method that you would like to be able to access the
default object.
A typical method will look something like the following
sub foobar {
my $self = shift;
# Do whatever the method does
}
To make the method work with Class::Default, you should change it to the following
sub foobar {
my $self = shift->_self;
# Do whatever the method does
}
This change is very low impact, easy to use, and will not make any other differences to the way your code works.
Control over the default object
When needed, Class::Default will make a new instantation of your class and cache it to be used whenever a static call is made. It does this
in the simplest way possible, by calling "Class-"new()> with no arguments.
This is fine if you have a very pure class that can handle creating a new object without any arguments, but many classes expect some sort
of argument to the the constructor, and indeed that the constructor that should be used it the "new" method.
Enter the "_create_default_object" method. By overloading the "_create_default_object" method in your class, you can custom create the
default object. This will used to create the default object on demand, the first time a method is called. For example, the following class
demonstrate the use of "_create_default_object" to set some values in the default object.
package Slashdot::User;
use base 'Class::Default';
# Constructor
sub new {
my $class = shift;
my $name = shift;
my $self = {
name => $name,
favourite_color => '',
};
return bless $self, $class;
}
# Default constructor
sub _create_default_object {
my $class = shift;
my $self = $class->new( 'Anonymous Coward' );
$self->{favourite_color} = 'Orange';
return $self;
}
sub name {
$_[0]->_self->{name};
}
sub favourite_color {
$_[0]->_self->{favourite_color};
}
That provides a statically accessible default object that could be used as in the following manner.
print "The default slashdot user is " . Slashdot::User->name
. " and they like the colour " . Slashdot::User->favourite_color;
Remember that the default object is persistant, so changes made to the statically accessible object can be recovered later.
Getting access to the default object
There are a few ways to do this, but the easiest way is to simple do the following
my $default = Slashdot::User->_get_default;
METHODS
_self
Used by methods to make the method apply to the default object if called statically without affecting normal object methods.
_class
The "_class" method provides the opposite of the "_self" method. Instead of always getting an object, "_class" will always get the class
name, so a method can be guarenteed to run in a static context. This is not essential to the use of a "Class::Default" module, but is pro-
vided as a convenience.
_get_default
Used to get the default object directly.
_create_default_object
To be overloaded by your class to set any properties to the default object at creation time.
BUGS
No known bugs, but suggestions are welcome
SUPPORT
Bugs should be reported via the CPAN bug tracker at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Class-Default>
For other issues, contact the author
AUTHOR
Adam Kennedy <adamk@cpan.org>
SEE ALSO
<http://ali.as/>, Class::Singleton
COPYRIGHT
Copyright (c) 2002 - 2006 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.8.8 2008-03-07 Class::Default(3pm)
