| Total Complexity | 104 | 
| Total Lines | 700 | 
| Duplicated Lines | 0 % | 
| Changes | 2 | ||
| Bugs | 1 | Features | 0 | 
Complex classes like PEAR often do a lot of different things. To break such a class down, we need to identify a cohesive component within that class. A common approach to find such a component is to look for fields/methods that share the same prefixes, or suffixes.
Once you have determined the fields that belong together, you can apply the Extract Class refactoring. If the component makes sense as a sub-class, Extract Subclass is also a candidate, and is often faster.
While breaking up the class, it is a good idea to analyze how other classes use PEAR, and based on these observations, apply Extract Interface, too.
| 1 | <?php  | 
            ||
| 84 | class PEAR  | 
            ||
| 85 | { | 
            ||
| 86 | /**  | 
            ||
| 87 | * Whether to enable internal debug messages.  | 
            ||
| 88 | *  | 
            ||
| 89 | * @var bool  | 
            ||
| 90 | * @access private  | 
            ||
| 91 | */  | 
            ||
| 92 | public $_debug = false;  | 
            ||
| 93 | /**  | 
            ||
| 94 | * Default error mode for this object.  | 
            ||
| 95 | *  | 
            ||
| 96 | * @var int  | 
            ||
| 97 | * @access private  | 
            ||
| 98 | */  | 
            ||
| 99 | public $_default_error_mode = null;  | 
            ||
| 100 | /**  | 
            ||
| 101 | * Default error options used for this object when error mode  | 
            ||
| 102 | * is PEAR_ERROR_TRIGGER.  | 
            ||
| 103 | *  | 
            ||
| 104 | * @var int  | 
            ||
| 105 | * @access private  | 
            ||
| 106 | */  | 
            ||
| 107 | public $_default_error_options = null;  | 
            ||
| 108 | /**  | 
            ||
| 109 | * Default error handler (callback) for this object, if error mode is  | 
            ||
| 110 | * PEAR_ERROR_CALLBACK.  | 
            ||
| 111 | *  | 
            ||
| 112 | * @var string  | 
            ||
| 113 | * @access private  | 
            ||
| 114 | */  | 
            ||
| 115 | public $_default_error_handler = '';  | 
            ||
| 116 | /**  | 
            ||
| 117 | * Which class to use for error objects.  | 
            ||
| 118 | *  | 
            ||
| 119 | * @var string  | 
            ||
| 120 | * @access private  | 
            ||
| 121 | */  | 
            ||
| 122 | public $_error_class = 'PEAR_Error';  | 
            ||
| 123 | /**  | 
            ||
| 124 | * An array of expected errors.  | 
            ||
| 125 | *  | 
            ||
| 126 | * @var array  | 
            ||
| 127 | * @access private  | 
            ||
| 128 | */  | 
            ||
| 129 | public $_expected_errors = [];  | 
            ||
| 130 | /**  | 
            ||
| 131 | * List of methods that can be called both statically and non-statically.  | 
            ||
| 132 | * @var array  | 
            ||
| 133 | */  | 
            ||
| 134 | protected static $bivalentMethods = [  | 
            ||
| 135 | 'setErrorHandling' => true,  | 
            ||
| 136 | 'raiseError' => true,  | 
            ||
| 137 | 'throwError' => true,  | 
            ||
| 138 | 'pushErrorHandling' => true,  | 
            ||
| 139 | 'popErrorHandling' => true,  | 
            ||
| 140 | ];  | 
            ||
| 141 | |||
| 142 | /**  | 
            ||
| 143 | * Constructor. Registers this object in  | 
            ||
| 144 | * $_PEAR_destructor_object_list for destructor emulation if a  | 
            ||
| 145 | * destructor object exists.  | 
            ||
| 146 | *  | 
            ||
| 147 | * @param string $error_class (optional) which class to use for  | 
            ||
| 148 | * error objects, defaults to PEAR_Error.  | 
            ||
| 149 | * @access public  | 
            ||
| 150 | * @return void  | 
            ||
| 151 | */  | 
            ||
| 152 | public function __construct($error_class = null)  | 
            ||
| 153 |     { | 
            ||
| 154 | $classname = strtolower(get_class($this));  | 
            ||
| 155 |         if ($this->_debug) { | 
            ||
| 156 | print "PEAR constructor called, class=$classname\n";  | 
            ||
| 157 | }  | 
            ||
| 158 | |||
| 159 |         if (null !== $error_class) { | 
            ||
| 160 | $this->_error_class = $error_class;  | 
            ||
| 161 | }  | 
            ||
| 162 | |||
| 163 |         while ($classname && strcasecmp($classname, 'pear')) { | 
            ||
| 164 | $destructor = "_$classname";  | 
            ||
| 165 |             if (method_exists($this, $destructor)) { | 
            ||
| 166 | global $_PEAR_destructor_object_list;  | 
            ||
| 167 | $_PEAR_destructor_object_list[] = $this;  | 
            ||
| 168 |                 if (!isset($GLOBALS['_PEAR_SHUTDOWN_REGISTERED'])) { | 
            ||
| 169 |                     register_shutdown_function('_PEAR_call_destructors'); | 
            ||
| 170 | $GLOBALS['_PEAR_SHUTDOWN_REGISTERED'] = true;  | 
            ||
| 171 | }  | 
            ||
| 172 | break;  | 
            ||
| 173 |             } else { | 
            ||
| 174 | $classname = get_parent_class($classname);  | 
            ||
| 175 | }  | 
            ||
| 176 | }  | 
            ||
| 177 | }  | 
            ||
| 178 | |||
| 179 | /**  | 
            ||
| 180 | * Only here for backwards compatibility.  | 
            ||
| 181 | * E.g. Archive_Tar calls $this->PEAR() in its constructor.  | 
            ||
| 182 | *  | 
            ||
| 183 | * @param string $error_class Which class to use for error objects,  | 
            ||
| 184 | * defaults to PEAR_Error.  | 
            ||
| 185 | */  | 
            ||
| 186 | public function PEAR($error_class = null)  | 
            ||
| 187 |     { | 
            ||
| 188 | self::__construct($error_class);  | 
            ||
| 189 | }  | 
            ||
| 190 | |||
| 191 | /**  | 
            ||
| 192 | * Destructor (the emulated type of...). Does nothing right now,  | 
            ||
| 193 | * but is included for forward compatibility, so subclass  | 
            ||
| 194 | * destructors should always call it.  | 
            ||
| 195 | *  | 
            ||
| 196 | * See the note in the class desciption about output from  | 
            ||
| 197 | * destructors.  | 
            ||
| 198 | *  | 
            ||
| 199 | * @access public  | 
            ||
| 200 | * @return void  | 
            ||
| 201 | */  | 
            ||
| 202 | public function _PEAR()  | 
            ||
| 203 |     { | 
            ||
| 204 |         if ($this->_debug) { | 
            ||
| 205 |             printf("PEAR destructor called, class=%s\n", strtolower(get_class($this))); | 
            ||
| 206 | }  | 
            ||
| 207 | }  | 
            ||
| 208 | |||
| 209 | public function __call($method, $arguments)  | 
            ||
| 210 |     { | 
            ||
| 211 |         if (!isset(self::$bivalentMethods[$method])) { | 
            ||
| 212 | trigger_error(  | 
            ||
| 213 | 'Call to undefined method PEAR::' . $method . '()',  | 
            ||
| 214 | E_USER_ERROR  | 
            ||
| 215 | );  | 
            ||
| 216 | }  | 
            ||
| 217 | return call_user_func_array(  | 
            ||
| 218 | [get_class(), '_' . $method],  | 
            ||
| 219 | array_merge([$this], $arguments)  | 
            ||
| 220 | );  | 
            ||
| 221 | }  | 
            ||
| 222 | |||
| 223 | public static function __callStatic($method, $arguments)  | 
            ||
| 224 |     { | 
            ||
| 225 |         if (!isset(self::$bivalentMethods[$method])) { | 
            ||
| 226 | trigger_error(  | 
            ||
| 227 | 'Call to undefined method PEAR::' . $method . '()',  | 
            ||
| 228 | E_USER_ERROR  | 
            ||
| 229 | );  | 
            ||
| 230 | }  | 
            ||
| 231 | return call_user_func_array(  | 
            ||
| 232 | [get_class(), '_' . $method],  | 
            ||
| 233 | array_merge([null], $arguments)  | 
            ||
| 234 | );  | 
            ||
| 235 | }  | 
            ||
| 236 | |||
| 237 | /**  | 
            ||
| 238 | * If you have a class that's mostly/entirely static, and you need static  | 
            ||
| 239 | * properties, you can use this method to simulate them. Eg. in your method(s)  | 
            ||
| 240 |      * do this: $myVar = &PEAR::getStaticProperty('myclass', 'myVar'); | 
            ||
| 241 | * You MUST use a reference, or they will not persist!  | 
            ||
| 242 | *  | 
            ||
| 243 | * @param string $class The calling classname, to prevent clashes  | 
            ||
| 244 | * @param string $var The variable to retrieve.  | 
            ||
| 245 | * @return mixed A reference to the variable. If not set it will be  | 
            ||
| 246 | * auto initialised to NULL.  | 
            ||
| 247 | */  | 
            ||
| 248 | public static function &getStaticProperty($class, $var)  | 
            ||
| 249 |     { | 
            ||
| 250 | static $properties;  | 
            ||
| 251 |         if (!isset($properties[$class])) { | 
            ||
| 252 | $properties[$class] = [];  | 
            ||
| 253 | }  | 
            ||
| 254 | |||
| 255 |         if (!array_key_exists($var, $properties[$class])) { | 
            ||
| 256 | $properties[$class][$var] = null;  | 
            ||
| 257 | }  | 
            ||
| 258 | |||
| 259 | return $properties[$class][$var];  | 
            ||
| 260 | }  | 
            ||
| 261 | |||
| 262 | /**  | 
            ||
| 263 | * Use this function to register a shutdown method for static  | 
            ||
| 264 | * classes.  | 
            ||
| 265 | *  | 
            ||
| 266 | * @param mixed $func The function name (or array of class/method) to call  | 
            ||
| 267 | * @param mixed $args The arguments to pass to the function  | 
            ||
| 268 | *  | 
            ||
| 269 | * @return void  | 
            ||
| 270 | */  | 
            ||
| 271 | public static function registerShutdownFunc($func, $args = [])  | 
            ||
| 272 |     { | 
            ||
| 273 | // if we are called statically, there is a potential  | 
            ||
| 274 | // that no shutdown func is registered. Bug #6445  | 
            ||
| 275 |         if (!isset($GLOBALS['_PEAR_SHUTDOWN_REGISTERED'])) { | 
            ||
| 276 |             register_shutdown_function('_PEAR_call_destructors'); | 
            ||
| 277 | $GLOBALS['_PEAR_SHUTDOWN_REGISTERED'] = true;  | 
            ||
| 278 | }  | 
            ||
| 279 | $GLOBALS['_PEAR_shutdown_funcs'][] = [$func, $args];  | 
            ||
| 280 | }  | 
            ||
| 281 | |||
| 282 | /**  | 
            ||
| 283 | * Tell whether a value is a PEAR error.  | 
            ||
| 284 | *  | 
            ||
| 285 | * @param mixed $data the value to test  | 
            ||
| 286 | * @param int $code if $data is an error object, return true  | 
            ||
| 287 | * only if $code is a string and  | 
            ||
| 288 | * $obj->getMessage() == $code or  | 
            ||
| 289 | * $code is an integer and $obj->getCode() == $code  | 
            ||
| 290 | *  | 
            ||
| 291 | * @return bool true if parameter is an error  | 
            ||
| 292 | */  | 
            ||
| 293 | public static function isError($data, $code = null)  | 
            ||
| 294 |     { | 
            ||
| 295 |         if (!is_a($data, 'PEAR_Error')) { | 
            ||
| 296 | return false;  | 
            ||
| 297 | }  | 
            ||
| 298 | |||
| 299 |         if (null === $code) { | 
            ||
| 300 | return true;  | 
            ||
| 301 |         } elseif (is_string($code)) { | 
            ||
| 302 | return $data->getMessage() == $code;  | 
            ||
| 303 | }  | 
            ||
| 304 | |||
| 305 | return $data->getCode() == $code;  | 
            ||
| 306 | }  | 
            ||
| 307 | |||
| 308 | /**  | 
            ||
| 309 | * Sets how errors generated by this object should be handled.  | 
            ||
| 310 | * Can be invoked both in objects and statically. If called  | 
            ||
| 311 | * statically, setErrorHandling sets the default behaviour for all  | 
            ||
| 312 | * PEAR objects. If called in an object, setErrorHandling sets  | 
            ||
| 313 | * the default behaviour for that object.  | 
            ||
| 314 | *  | 
            ||
| 315 | * @param object $object  | 
            ||
| 316 | * Object the method was called on (non-static mode)  | 
            ||
| 317 | *  | 
            ||
| 318 | * @param int $mode  | 
            ||
| 319 | * One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,  | 
            ||
| 320 | * PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,  | 
            ||
| 321 | * PEAR_ERROR_CALLBACK or PEAR_ERROR_EXCEPTION.  | 
            ||
| 322 | *  | 
            ||
| 323 | * @param mixed $options  | 
            ||
| 324 | * When $mode is PEAR_ERROR_TRIGGER, this is the error level (one  | 
            ||
| 325 | * of E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).  | 
            ||
| 326 | *  | 
            ||
| 327 | * When $mode is PEAR_ERROR_CALLBACK, this parameter is expected  | 
            ||
| 328 | * to be the callback function or method. A callback  | 
            ||
| 329 | * function is a string with the name of the function, a  | 
            ||
| 330 | * callback method is an array of two elements: the element  | 
            ||
| 331 | * at index 0 is the object, and the element at index 1 is  | 
            ||
| 332 | * the name of the method to call in the object.  | 
            ||
| 333 | *  | 
            ||
| 334 | * When $mode is PEAR_ERROR_PRINT or PEAR_ERROR_DIE, this is  | 
            ||
| 335 | * a printf format string used when printing the error  | 
            ||
| 336 | * message.  | 
            ||
| 337 | *  | 
            ||
| 338 | * @access public  | 
            ||
| 339 | * @return void  | 
            ||
| 340 | * @see PEAR_ERROR_RETURN  | 
            ||
| 341 | * @see PEAR_ERROR_PRINT  | 
            ||
| 342 | * @see PEAR_ERROR_TRIGGER  | 
            ||
| 343 | * @see PEAR_ERROR_DIE  | 
            ||
| 344 | * @see PEAR_ERROR_CALLBACK  | 
            ||
| 345 | * @see PEAR_ERROR_EXCEPTION  | 
            ||
| 346 | *  | 
            ||
| 347 | * @since PHP 4.0.5  | 
            ||
| 348 | */  | 
            ||
| 349 | protected static function _setErrorHandling(  | 
            ||
| 350 | $object,  | 
            ||
| 351 | $mode = null,  | 
            ||
| 352 | $options = null  | 
            ||
| 353 |     ) { | 
            ||
| 354 |         if (null !== $object) { | 
            ||
| 355 | $setmode = &$object->_default_error_mode;  | 
            ||
| 356 | $setoptions = &$object->_default_error_options;  | 
            ||
| 357 |         } else { | 
            ||
| 358 | $setmode = &$GLOBALS['_PEAR_default_error_mode'];  | 
            ||
| 359 | $setoptions = &$GLOBALS['_PEAR_default_error_options'];  | 
            ||
| 360 | }  | 
            ||
| 361 | |||
| 362 |         switch ($mode) { | 
            ||
| 363 | case PEAR_ERROR_EXCEPTION:  | 
            ||
| 364 | case PEAR_ERROR_RETURN:  | 
            ||
| 365 | case PEAR_ERROR_PRINT:  | 
            ||
| 366 | case PEAR_ERROR_TRIGGER:  | 
            ||
| 367 | case PEAR_ERROR_DIE:  | 
            ||
| 368 | case null:  | 
            ||
| 369 | $setmode = $mode;  | 
            ||
| 370 | $setoptions = $options;  | 
            ||
| 371 | break;  | 
            ||
| 372 | |||
| 373 | case PEAR_ERROR_CALLBACK:  | 
            ||
| 374 | $setmode = $mode;  | 
            ||
| 375 | // class/object method callback  | 
            ||
| 376 |                 if (is_callable($options)) { | 
            ||
| 377 | $setoptions = $options;  | 
            ||
| 378 |                 } else { | 
            ||
| 379 |                     trigger_error('invalid error callback', E_USER_WARNING); | 
            ||
| 380 | }  | 
            ||
| 381 | break;  | 
            ||
| 382 | |||
| 383 | default:  | 
            ||
| 384 |                 trigger_error('invalid error mode', E_USER_WARNING); | 
            ||
| 385 | break;  | 
            ||
| 386 | }  | 
            ||
| 387 | }  | 
            ||
| 388 | |||
| 389 | /**  | 
            ||
| 390 | * This method is used to tell which errors you expect to get.  | 
            ||
| 391 | * Expected errors are always returned with error mode  | 
            ||
| 392 | * PEAR_ERROR_RETURN. Expected error codes are stored in a stack,  | 
            ||
| 393 | * and this method pushes a new element onto it. The list of  | 
            ||
| 394 | * expected errors are in effect until they are popped off the  | 
            ||
| 395 | * stack with the popExpect() method.  | 
            ||
| 396 | *  | 
            ||
| 397 | * Note that this method can not be called statically  | 
            ||
| 398 | *  | 
            ||
| 399 | * @param mixed $code a single error code or an array of error codes to expect  | 
            ||
| 400 | *  | 
            ||
| 401 | * @return int the new depth of the "expected errors" stack  | 
            ||
| 402 | * @access public  | 
            ||
| 403 | */  | 
            ||
| 404 | public function expectError($code = '*')  | 
            ||
| 405 |     { | 
            ||
| 406 |         if (is_array($code)) { | 
            ||
| 407 | array_push($this->_expected_errors, $code);  | 
            ||
| 408 |         } else { | 
            ||
| 409 | array_push($this->_expected_errors, [$code]);  | 
            ||
| 410 | }  | 
            ||
| 411 | return count($this->_expected_errors);  | 
            ||
| 412 | }  | 
            ||
| 413 | |||
| 414 | /**  | 
            ||
| 415 | * This method pops one element off the expected error codes  | 
            ||
| 416 | * stack.  | 
            ||
| 417 | *  | 
            ||
| 418 | * @return array the list of error codes that were popped  | 
            ||
| 419 | */  | 
            ||
| 420 | public function popExpect()  | 
            ||
| 421 |     { | 
            ||
| 422 | return array_pop($this->_expected_errors);  | 
            ||
| 423 | }  | 
            ||
| 424 | |||
| 425 | /**  | 
            ||
| 426 | * This method checks unsets an error code if available  | 
            ||
| 427 | *  | 
            ||
| 428 | * @param mixed error code  | 
            ||
| 429 | * @return bool true if the error code was unset, false otherwise  | 
            ||
| 430 | * @access private  | 
            ||
| 431 | * @since PHP 4.3.0  | 
            ||
| 432 | */  | 
            ||
| 433 | public function _checkDelExpect($error_code)  | 
            ||
| 434 |     { | 
            ||
| 435 | $deleted = false;  | 
            ||
| 436 |         foreach ($this->_expected_errors as $key => $error_array) { | 
            ||
| 437 |             if (in_array($error_code, $error_array)) { | 
            ||
| 438 | unset($this->_expected_errors[$key][array_search($error_code, $error_array)]);  | 
            ||
| 439 | $deleted = true;  | 
            ||
| 440 | }  | 
            ||
| 441 | |||
| 442 | // clean up empty arrays  | 
            ||
| 443 |             if (0 == count($this->_expected_errors[$key])) { | 
            ||
| 444 | unset($this->_expected_errors[$key]);  | 
            ||
| 445 | }  | 
            ||
| 446 | }  | 
            ||
| 447 | |||
| 448 | return $deleted;  | 
            ||
| 449 | }  | 
            ||
| 450 | |||
| 451 | /**  | 
            ||
| 452 | * This method deletes all occurrences of the specified element from  | 
            ||
| 453 | * the expected error codes stack.  | 
            ||
| 454 | *  | 
            ||
| 455 | * @param mixed $error_code error code that should be deleted  | 
            ||
| 456 | * @return mixed list of error codes that were deleted or error  | 
            ||
| 457 | * @access public  | 
            ||
| 458 | * @since PHP 4.3.0  | 
            ||
| 459 | */  | 
            ||
| 460 | public function delExpect($error_code)  | 
            ||
| 482 | }  | 
            ||
| 483 | |||
| 484 | /**  | 
            ||
| 485 | * This method is a wrapper that returns an instance of the  | 
            ||
| 486 | * configured error class with this object's default error  | 
            ||
| 487 | * handling applied. If the $mode and $options parameters are not  | 
            ||
| 488 | * specified, the object's defaults are used.  | 
            ||
| 489 | *  | 
            ||
| 490 | * @param mixed $message a text error message or a PEAR error object  | 
            ||
| 491 | *  | 
            ||
| 492 | * @param int $code a numeric error code (it is up to your class  | 
            ||
| 493 | * to define these if you want to use codes)  | 
            ||
| 494 | *  | 
            ||
| 495 | * @param int $mode One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,  | 
            ||
| 496 | * PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,  | 
            ||
| 497 | * PEAR_ERROR_CALLBACK, PEAR_ERROR_EXCEPTION.  | 
            ||
| 498 | *  | 
            ||
| 499 | * @param mixed $options If $mode is PEAR_ERROR_TRIGGER, this parameter  | 
            ||
| 500 | * specifies the PHP-internal error level (one of  | 
            ||
| 501 | * E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).  | 
            ||
| 502 | * If $mode is PEAR_ERROR_CALLBACK, this  | 
            ||
| 503 | * parameter specifies the callback function or  | 
            ||
| 504 | * method. In other error modes this parameter  | 
            ||
| 505 | * is ignored.  | 
            ||
| 506 | *  | 
            ||
| 507 | * @param string $userinfo If you need to pass along for example debug  | 
            ||
| 508 | * information, this parameter is meant for that.  | 
            ||
| 509 | *  | 
            ||
| 510 | * @param string $error_class The returned error object will be  | 
            ||
| 511 | * instantiated from this class, if specified.  | 
            ||
| 512 | *  | 
            ||
| 513 | * @param bool $skipmsg If true, raiseError will only pass error codes,  | 
            ||
| 514 | * the error message parameter will be dropped.  | 
            ||
| 515 | *  | 
            ||
| 516 | * @return object a PEAR error object  | 
            ||
| 517 | * @see PEAR::setErrorHandling  | 
            ||
| 518 | * @since PHP 4.0.5  | 
            ||
| 519 | */  | 
            ||
| 520 | protected static function _raiseError(  | 
            ||
| 521 | $object,  | 
            ||
| 522 | $message = null,  | 
            ||
| 523 | $code = null,  | 
            ||
| 524 | $mode = null,  | 
            ||
| 525 | $options = null,  | 
            ||
| 526 | $userinfo = null,  | 
            ||
| 527 | $error_class = null,  | 
            ||
| 528 | $skipmsg = false  | 
            ||
| 529 |     ) { | 
            ||
| 530 | // The error is yet a PEAR error object  | 
            ||
| 531 |         if (is_object($message)) { | 
            ||
| 532 | $code = $message->getCode();  | 
            ||
| 533 | $userinfo = $message->getUserInfo();  | 
            ||
| 534 | $error_class = $message->getType();  | 
            ||
| 535 | $message->error_message_prefix = '';  | 
            ||
| 536 | $message = $message->getMessage();  | 
            ||
| 537 | }  | 
            ||
| 538 | |||
| 539 | if (null !== $object  | 
            ||
| 540 | && isset($object->_expected_errors)  | 
            ||
| 541 | && count($object->_expected_errors) > 0  | 
            ||
| 542 |             && count($exp = end($object->_expected_errors))) { | 
            ||
| 543 |             if ('*' === $exp[0] | 
            ||
| 544 | || (is_int(reset($exp)) && in_array($code, $exp))  | 
            ||
| 545 |                 || (is_string(reset($exp)) && in_array($message, $exp))) { | 
            ||
| 546 | $mode = PEAR_ERROR_RETURN;  | 
            ||
| 547 | }  | 
            ||
| 548 | }  | 
            ||
| 549 | |||
| 550 | // No mode given, try global ones  | 
            ||
| 551 |         if (null === $mode) { | 
            ||
| 552 | // Class error handler  | 
            ||
| 553 |             if (null !== $object && isset($object->_default_error_mode)) { | 
            ||
| 554 | $mode = $object->_default_error_mode;  | 
            ||
| 555 | $options = $object->_default_error_options;  | 
            ||
| 556 | // Global error handler  | 
            ||
| 557 |             } elseif (isset($GLOBALS['_PEAR_default_error_mode'])) { | 
            ||
| 558 | $mode = $GLOBALS['_PEAR_default_error_mode'];  | 
            ||
| 559 | $options = $GLOBALS['_PEAR_default_error_options'];  | 
            ||
| 560 | }  | 
            ||
| 561 | }  | 
            ||
| 562 | |||
| 563 |         if (null !== $error_class) { | 
            ||
| 564 | $ec = $error_class;  | 
            ||
| 565 |         } elseif (null !== $object && isset($object->_error_class)) { | 
            ||
| 566 | $ec = $object->_error_class;  | 
            ||
| 567 |         } else { | 
            ||
| 568 | $ec = 'PEAR_Error';  | 
            ||
| 569 | }  | 
            ||
| 570 | |||
| 571 |         if ($skipmsg) { | 
            ||
| 572 | $a = new $ec($code, $mode, $options, $userinfo);  | 
            ||
| 573 |         } else { | 
            ||
| 574 | $a = new $ec($message, $code, $mode, $options, $userinfo);  | 
            ||
| 575 | }  | 
            ||
| 576 | |||
| 577 | return $a;  | 
            ||
| 578 | }  | 
            ||
| 579 | |||
| 580 | /**  | 
            ||
| 581 | * Simpler form of raiseError with fewer options. In most cases  | 
            ||
| 582 | * message, code and userinfo are enough.  | 
            ||
| 583 | *  | 
            ||
| 584 | * @param mixed $message a text error message or a PEAR error object  | 
            ||
| 585 | *  | 
            ||
| 586 | * @param int $code a numeric error code (it is up to your class  | 
            ||
| 587 | * to define these if you want to use codes)  | 
            ||
| 588 | *  | 
            ||
| 589 | * @param string $userinfo If you need to pass along for example debug  | 
            ||
| 590 | * information, this parameter is meant for that.  | 
            ||
| 591 | *  | 
            ||
| 592 | * @return object a PEAR error object  | 
            ||
| 593 | * @see PEAR::raiseError  | 
            ||
| 594 | */  | 
            ||
| 595 | protected static function _throwError($object, $message = null, $code = null, $userinfo = null)  | 
            ||
| 604 | }  | 
            ||
| 605 | |||
| 606 | public static function staticPushErrorHandling($mode, $options = null)  | 
            ||
| 607 |     { | 
            ||
| 608 | $stack = &$GLOBALS['_PEAR_error_handler_stack'];  | 
            ||
| 609 | $def_mode = &$GLOBALS['_PEAR_default_error_mode'];  | 
            ||
| 610 | $def_options = &$GLOBALS['_PEAR_default_error_options'];  | 
            ||
| 611 | $stack[] = [$def_mode, $def_options];  | 
            ||
| 612 |         switch ($mode) { | 
            ||
| 613 | case PEAR_ERROR_EXCEPTION:  | 
            ||
| 614 | case PEAR_ERROR_RETURN:  | 
            ||
| 615 | case PEAR_ERROR_PRINT:  | 
            ||
| 616 | case PEAR_ERROR_TRIGGER:  | 
            ||
| 617 | case PEAR_ERROR_DIE:  | 
            ||
| 618 | case null:  | 
            ||
| 619 | $def_mode = $mode;  | 
            ||
| 620 | $def_options = $options;  | 
            ||
| 621 | break;  | 
            ||
| 622 | |||
| 623 | case PEAR_ERROR_CALLBACK:  | 
            ||
| 624 | $def_mode = $mode;  | 
            ||
| 625 | // class/object method callback  | 
            ||
| 626 |                 if (is_callable($options)) { | 
            ||
| 627 | $def_options = $options;  | 
            ||
| 628 |                 } else { | 
            ||
| 629 |                     trigger_error('invalid error callback', E_USER_WARNING); | 
            ||
| 630 | }  | 
            ||
| 631 | break;  | 
            ||
| 632 | |||
| 633 | default:  | 
            ||
| 634 |                 trigger_error('invalid error mode', E_USER_WARNING); | 
            ||
| 635 | break;  | 
            ||
| 636 | }  | 
            ||
| 637 | $stack[] = [$mode, $options];  | 
            ||
| 638 | return true;  | 
            ||
| 639 | }  | 
            ||
| 640 | |||
| 641 | public static function staticPopErrorHandling()  | 
            ||
| 642 |     { | 
            ||
| 643 | $stack = &$GLOBALS['_PEAR_error_handler_stack'];  | 
            ||
| 644 | $setmode = &$GLOBALS['_PEAR_default_error_mode'];  | 
            ||
| 645 | $setoptions = &$GLOBALS['_PEAR_default_error_options'];  | 
            ||
| 646 | array_pop($stack);  | 
            ||
| 647 | [$mode, $options] = $stack[count($stack) - 1];  | 
            ||
| 648 | array_pop($stack);  | 
            ||
| 649 |         switch ($mode) { | 
            ||
| 650 | case PEAR_ERROR_EXCEPTION:  | 
            ||
| 651 | case PEAR_ERROR_RETURN:  | 
            ||
| 652 | case PEAR_ERROR_PRINT:  | 
            ||
| 653 | case PEAR_ERROR_TRIGGER:  | 
            ||
| 654 | case PEAR_ERROR_DIE:  | 
            ||
| 655 | case null:  | 
            ||
| 656 | $setmode = $mode;  | 
            ||
| 657 | $setoptions = $options;  | 
            ||
| 658 | break;  | 
            ||
| 659 | |||
| 660 | case PEAR_ERROR_CALLBACK:  | 
            ||
| 661 | $setmode = $mode;  | 
            ||
| 662 | // class/object method callback  | 
            ||
| 663 |                 if (is_callable($options)) { | 
            ||
| 664 | $setoptions = $options;  | 
            ||
| 665 |                 } else { | 
            ||
| 666 |                     trigger_error('invalid error callback', E_USER_WARNING); | 
            ||
| 667 | }  | 
            ||
| 668 | break;  | 
            ||
| 669 | |||
| 670 | default:  | 
            ||
| 671 |                 trigger_error('invalid error mode', E_USER_WARNING); | 
            ||
| 672 | break;  | 
            ||
| 673 | }  | 
            ||
| 674 | return true;  | 
            ||
| 675 | }  | 
            ||
| 676 | |||
| 677 | /**  | 
            ||
| 678 | * Push a new error handler on top of the error handler options stack. With this  | 
            ||
| 679 | * you can easily override the actual error handler for some code and restore  | 
            ||
| 680 | * it later with popErrorHandling.  | 
            ||
| 681 | *  | 
            ||
| 682 | * @param mixed $mode (same as setErrorHandling)  | 
            ||
| 683 | * @param mixed $options (same as setErrorHandling)  | 
            ||
| 684 | *  | 
            ||
| 685 | * @return bool Always true  | 
            ||
| 686 | *  | 
            ||
| 687 | * @see PEAR::setErrorHandling  | 
            ||
| 688 | */  | 
            ||
| 689 | protected static function _pushErrorHandling($object, $mode, $options = null)  | 
            ||
| 690 |     { | 
            ||
| 691 | $stack = &$GLOBALS['_PEAR_error_handler_stack'];  | 
            ||
| 692 |         if (null !== $object) { | 
            ||
| 693 | $def_mode = &$object->_default_error_mode;  | 
            ||
| 694 | $def_options = &$object->_default_error_options;  | 
            ||
| 695 |         } else { | 
            ||
| 696 | $def_mode = &$GLOBALS['_PEAR_default_error_mode'];  | 
            ||
| 697 | $def_options = &$GLOBALS['_PEAR_default_error_options'];  | 
            ||
| 698 | }  | 
            ||
| 699 | $stack[] = [$def_mode, $def_options];  | 
            ||
| 700 | |||
| 701 |         if (null !== $object) { | 
            ||
| 702 | $object->setErrorHandling($mode, $options);  | 
            ||
| 703 |         } else { | 
            ||
| 704 | self::setErrorHandling($mode, $options);  | 
            ||
| 705 | }  | 
            ||
| 706 | $stack[] = [$mode, $options];  | 
            ||
| 707 | return true;  | 
            ||
| 708 | }  | 
            ||
| 709 | |||
| 710 | /**  | 
            ||
| 711 | * Pop the last error handler used  | 
            ||
| 712 | *  | 
            ||
| 713 | * @return bool Always true  | 
            ||
| 714 | *  | 
            ||
| 715 | * @see PEAR::pushErrorHandling  | 
            ||
| 716 | */  | 
            ||
| 717 | protected static function _popErrorHandling($object)  | 
            ||
| 718 |     { | 
            ||
| 719 | $stack = &$GLOBALS['_PEAR_error_handler_stack'];  | 
            ||
| 720 | array_pop($stack);  | 
            ||
| 721 | [$mode, $options] = $stack[count($stack) - 1];  | 
            ||
| 722 | array_pop($stack);  | 
            ||
| 723 |         if (null !== $object) { | 
            ||
| 724 | $object->setErrorHandling($mode, $options);  | 
            ||
| 725 |         } else { | 
            ||
| 726 | self::setErrorHandling($mode, $options);  | 
            ||
| 727 | }  | 
            ||
| 728 | return true;  | 
            ||
| 729 | }  | 
            ||
| 730 | |||
| 731 | /**  | 
            ||
| 732 | * OS independent PHP extension load. Remember to take care  | 
            ||
| 733 | * on the correct extension name for case sensitive OSes.  | 
            ||
| 734 | *  | 
            ||
| 735 | * @param string $ext The extension name  | 
            ||
| 736 | * @return bool Success or not on the dl() call  | 
            ||
| 737 | */  | 
            ||
| 738 | public static function loadExtension($ext)  | 
            ||
| 739 |     { | 
            ||
| 740 |         if (extension_loaded($ext)) { | 
            ||
| 741 | return true;  | 
            ||
| 742 | }  | 
            ||
| 743 | |||
| 744 | // if either returns true dl() will produce a FATAL error, stop that  | 
            ||
| 745 |         if (false === function_exists('dl') | 
            ||
| 746 |             || 1 != ini_get('enable_dl')) { | 
            ||
| 747 | return false;  | 
            ||
| 748 | }  | 
            ||
| 749 | |||
| 750 |         if (OS_WINDOWS) { | 
            ||
| 751 | $suffix = '.dll';  | 
            ||
| 752 |         } elseif (PHP_OS == 'HP-UX') { | 
            ||
| 753 | $suffix = '.sl';  | 
            ||
| 754 |         } elseif (PHP_OS == 'AIX') { | 
            ||
| 755 | $suffix = '.a';  | 
            ||
| 756 |         } elseif (PHP_OS == 'OSX') { | 
            ||
| 757 | $suffix = '.bundle';  | 
            ||
| 758 |         } else { | 
            ||
| 759 | $suffix = '.so';  | 
            ||
| 760 | }  | 
            ||
| 761 | |||
| 762 |         return @dl('php_' . $ext . $suffix) || @dl($ext . $suffix); | 
            ||
| 763 | }  | 
            ||
| 764 | |||
| 765 | /**  | 
            ||
| 766 | * Get SOURCE_DATE_EPOCH environment variable  | 
            ||
| 767 | * See https://reproducible-builds.org/specs/source-date-epoch/  | 
            ||
| 768 | *  | 
            ||
| 769 | * @return int  | 
            ||
| 770 | * @access public  | 
            ||
| 771 | */  | 
            ||
| 772 | public static function getSourceDateEpoch()  | 
            ||
| 784 | }  | 
            ||
| 785 | }  | 
            ||
| 786 | }  | 
            ||
| 787 | |||
| 788 | function _PEAR_call_destructors()  | 
            ||
| 789 | { | 
            ||
| 790 | global $_PEAR_destructor_object_list;  | 
            ||
| 791 | if (is_array($_PEAR_destructor_object_list)  | 
            ||
| 792 |         && count($_PEAR_destructor_object_list)) { | 
            ||
| 793 | reset($_PEAR_destructor_object_list);  | 
            ||
| 794 | |||
| 795 |         $destructLifoExists = PEAR::getStaticProperty('PEAR', 'destructlifo'); | 
            ||
| 796 | |||
| 797 |         if ($destructLifoExists) { | 
            ||
| 798 | $_PEAR_destructor_object_list = array_reverse($_PEAR_destructor_object_list);  | 
            ||
| 799 | }  | 
            ||
| 800 | |||
| 1142 |