# # Copyright (c) 2001, 2004, Oracle. All rights reserved. # # $Id: sRawmetrics.pm 25-jun-2004.18:35:51 ajdsouza Exp $ # # # NAME # sRawmetrics.pm # # DESC # OSD for implementing storage intercaes # # # FUNCTIONS # # # NOTES # # # MODIFIED (MM/DD/YY) # ajdsouza 07/06/04 - Created # # Initialize the environment variables at compile time BEGIN { $ENV{PATH} = ""; } package storage::sRawmetrics; require v5.6.1; use strict; use warnings; use locale; use storage::sUtilities; #----------------------------------------------------------------------------------------- # Global package variables #----------------------------------------------------------------------------------------- # Global package variable to hold sub name our $AUTOLOAD; #------------------------------------------------ # subs declared #----------------------------------------------- #------------------------------------------------- # Variables in package scope #------------------------------------------------ #----------------------------------------------------------------------------------------- # FUNCTION : AUTOLOAD # # DESC # If sub is not defined here then pass an error message # # ARGUMENTS # Args to be passed to the sub # #----------------------------------------------------------------------------------------- sub AUTOLOAD { my ( @args ) = @_; my $sub = $AUTOLOAD; $sub =~ s/.*:://; warn "Invoked subroutine $sub is not found , storage reporting functionality is not ported to platform $^O\n" and return if $^O; warn "Invoked subroutine $sub is not found , storage reporting functionality is not ported to this platform \n" and return; } 1; #-----------------------------------------------------------------