public function pw_var_export($input, $t = null)
{
import("@.ORG.RBAC");
$output = '';
if (is_array($input)) {
$output .= "array(\r\n";
foreach ($input as $key => $value) {
$output .= $t . "\t" . RBAC::pw_var_export($key, $t . "\t") . ' => ' . RBAC::pw_var_export($value, $t . "\t");
$output .= ",\r\n";
}
$output .= $t . ')';
} elseif (is_string($input)) {
$output .= "'" . str_replace(array("\\", "'"), array("\\\\", "\\'"), $input) . "'";
} elseif (is_int($input) || is_double($input)) {
$output .= "'" . (string) $input . "'";
} elseif (is_bool($input)) {
$output .= $input ? 'true' : 'false';
} else {
$output .= 'NULL';
}
return $output;
}
