Ticket #71231: patch-field-instead-of-has_t-50objectpad.t.diff

File patch-field-instead-of-has_t-50objectpad.t.diff, 516 bytes (added by ballapete (Peter "Pete" Dyballa), 3 days ago)

The patch file

  • t/50objectpad.t

    old new  
    88use Object::Pad;
    99
    1010class FooBar {
    11         has $x :reader = [];
     11        field $x :reader = [];
    1212        use Sub::HandlesVia::Declare '$x', Array => (
    1313                all_x => 'all',
    1414                add_x => 'push',
    1515        );
    1616
    17         has @y;
     17        field @y;
    1818        use Sub::HandlesVia::Declare '@y', (
    1919                all_y => 'all',
    2020                add_y => 'push',
    2121        );
    2222       
    23         has %z;
     23        field %z;
    2424        use Sub::HandlesVia::Declare '%z', (
    2525                all_z => 'all',
    2626                add_z => 'set',