summaryrefslogtreecommitdiff
path: root/lib/Config/AST/Node/Null.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Config/AST/Node/Null.pm')
-rw-r--r--lib/Config/AST/Node/Null.pm28
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/Config/AST/Node/Null.pm b/lib/Config/AST/Node/Null.pm
new file mode 100644
index 0000000..66986d2
--- /dev/null
+++ b/lib/Config/AST/Node/Null.pm
@@ -0,0 +1,28 @@
+package Config::AST::Node::Null;
+use parent 'Config::AST::Node';
+use strict;
+use warnings;
+use Carp;
+
+sub is_null { 1 }
+
+our $AUTOLOAD;
+
+sub AUTOLOAD {
+ my $self = shift;
+ my $key = $AUTOLOAD;
+ $key =~ s/.*:://;
+ if ($key =~ s/^([A-Z])(.*)/\l$1$2/) {
+ return $self;
+ }
+ confess "Can't locate method $AUTOLOAD";
+}
+
+sub as_string { '(null)' }
+
+sub value { undef }
+
+use overload
+ bool => sub { 0 };
+
+1;

Return to:

Send suggestions and report system problems to the System administrator.