Adding basic anonymous subscription.

lib/WebGUI/User/SpecialState.pm

@@ -0,0 +1,35 @@
+package WebGUI::User::SpecialState;
+
+use strict;
+use warnings;
+use Carp;
+
+use base 'WebGUI::User';
+
+sub create {
+    my $class   = shift;
+    my $session = shift;
+
+    my $self  = $class->SUPER::create( $session, @_ );
+
+    return $self->new( $session, $self->getId );
+}
+
+sub addSpecialState {
+    my $self    = shift;
+    my $state   = shift || croak 'state is required';
+    my $id      = shift;
+
+    return;
+}
+
+sub removeSpecialState {
+    my $self    = shift;
+    my $state   = shift || croak 'state is required';
+    my $id      = shift;
+
+    return;
+}
+
+1;
+