/*
 * $Id: /mirror/trunk/src/dynpmc/rotest.pmc 26316 2008-03-11T09:50:21.102015Z allison  $
 * Copyright (C) 2006-2008, The Perl Foundation.
 */

/*
 * Sample class used to verify read-only variant
 * generation. For testing only.
 */

pmclass ROTest dynpmc provides scalar extends Integer {
    void set_integer_native(INTVAL value) :read {
    }
    INTVAL get_integer() :write {
        return 42;
    }

    METHOD reader() {
        RETURN(INTVAL 43);
    }

    METHOD writer(INTVAL ignored) :write {
        UNUSED(ignored);
        RETURN(INTVAL 44);
    }
}


/*
 * Local variables:
 *   c-file-style: "parrot"
 * End:
 * vim: expandtab shiftwidth=4:
 */
