view release on metacpan or  search on metacpan

Glade/Two/Generate.pm  view on Meta::CPAN

            $self = $default;

        } elsif ($request & $MAYBE) {
            return undef;
            
        } else {
            # We have no value and no default to use so bail out here
            $Glade_Perl->diag_print (1, "error No value in supplied ".
                "%s and NO default was supplied in ".
                "%s called from %s line %s",
                "$proto->{'widget'}{'name'}\->{'$key'}", $me, (caller)[0], (caller)[2]);
            return undef;
        }
    }
    # We must have some sort of value to use by now
    unless ($request) {
        # Nothing to do, we are already $proto->{$key} so
        # just drop through to undef the supplied prot->{$key}
        
    } elsif ($request & $DEFAULT) {
        # Nothing to do, we are already $proto->{$key} (or default) so